Паскаль .Задать два целочисленных массива одинакового размера (не более 13 элементов). Вывести исходные на экран. Сформировать новый массив являющийся квадратом разности исходных массивов. Вычислить сумму тех элементов каждого массива которые кратны 4.

Предыдущий
вопрос Следующий
вопрос

Пример решения на языке Паскаль:

program Arrays;
var
arr1, arr2, squaredDiff: array[1..13] of integer;
i, sum1, sum2: integer;
begin
// Инициализируем исходные массивы
arr1 := (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13);
arr2 := (13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1);
// Выводим исходные массивы на экран
writeln('Исходный массив 1:');
for i := 1 to 13 do
write(arr1[i], ' ');
writeln;
writeln('Исходный массив 2:');
for i := 1 to 13 do
write(arr2[i], ' ');
writeln;
// Формируем новый массив - квадрат разности исходных массивов
for i := 1 to 13 do
squaredDiff[i] := sqr(arr1[i] - arr2[i]);
// Вычисляем сумму элементов каждого массива, кратных 4
sum1 := 0;
sum2 := 0;
for i := 1 to 13 do
begin
if arr1[i] mod 4 = 0 then
sum1 := sum1 + arr1[i];
if arr2[i] mod 4 = 0 then
sum2 := sum2 + arr2[i];
end;
// Выводим новый массив на экран
writeln('Новый массив - квадрат разности исходных массивов:');
for i := 1 to 13 do
write(squaredDiff[i], ' ');
writeln;
// Выводим сумму элементов каждого массива, кратных 4
writeln('Сумма элементов массива 1, кратных 4: ', sum1);
writeln('Сумма элементов массива 2, кратных 4: ', sum2);
end.

Этот код создает два массива arr1 и arr2, инициализирует их определенными значениями, затем находит квадрат разности элементов исходных массивов, и наконец, вычисляет сумму элементов каждого массива, которые кратны 4.