В одномерном массиве все элементы умножить на среднее арифметическое наибольшего и наименьшего - Pascal

Формулировка задачи:

В заданном одномерном массиве все элементы этого массива умножить на среднее арифметическое наибольшего и наименьшего элементов этого массива. Начальный и преобразованный массивы напечатать с указанием, что печатается.

Код к задаче: «В одномерном массиве все элементы умножить на среднее арифметическое наибольшего и наименьшего - Pascal»

textual
const
n = 10;
var
a:array[1..n] of real;
max, min, sr:real;
i:integer;
begin
writeln('Начальный массив:');
for i:=1 to n do
    begin
    a[i]:=random(10)+random;
    write(a[i]:5:2);
    end;
min:=a[1];
max:=a[1];
for i:=2 to n do
    begin
    if a[i] < min then
        min:=a[i];
    if a[i] > max then
        max:=a[i];
    end;
sr:=(min+max)/2;
writeln('Преобразованный массив:');
for i:=1 to n do
    write(a[i]*sr:6:2);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ