Преобразовать два заданных массива, увеличивая их соответствующие элементы на большее из рассматриваемой каждый раз пары чисел. В первом из полученных массивов найти среднее арифметическое, во втором – максимальный и минимальный элементы. В Pascal.

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

program ArraysTransformation;

var
arr1, arr2: array[1..5] of Integer;
transformedArr1, transformedArr2: array[1..5] of Integer;
i, max, min, sum: Integer;

begin
// Инициализация исходных массивов
arr1 := (3, 6, 9, 12, 15);
arr2 := (2, 4, 6, 8, 10);

// Преобразование массивов
for i := 1 to 5 do
begin
if arr1[i] > arr2[i] then
begin
transformedArr1[i] := arr1[i] + arr1[i];
transformedArr2[i] := arr2[i];
end
else
begin
transformedArr1[i] := arr1[i];
transformedArr2[i] := arr2[i] + arr2[i];
end;
end;

// Нахождение среднего арифметического элементов первого массива
sum := 0;
for i := 1 to 5 do
begin
sum := sum + transformedArr1[i];
end;
writeln('Среднее арифметическое элементов первого массива: ', sum / 5);

// Нахождение максимального и минимального элементов второго массива
max := transformedArr2[1];
min := transformedArr2[1];
for i := 2 to 5 do
begin
if transformedArr2[i] > max then
max := transformedArr2[i];
if transformedArr2[i] < min then
min := transformedArr2[i];
end;
writeln('Максимальный элемент второго массива: ', max);
writeln('Минимальный элемент второго массива: ', min);

end.