Есть ответ 👍

1)массив из 25 элементов задан генератором случайных чисел в диапазоне от : -20 до +20. найти среднее арифметическое чисел.2)найти минимальный элемент.3)найти сумму элементов,стоящих на чётных индексах imod 2=0.

265
308
Посмотреть ответы 2

Ответы на вопрос:

Polly2970
4,7(19 оценок)

Const       n = 25; var       a: array[1..n] of real;       i, j: integer;       min, max: real;       sum, product, harmonic: real; begin       {ввод массива}       writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(40) - 20;               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               sum : = sum + a[i];       writeln('average = ', sum / n);             {минимум и максимум}       min : = a[1];       for i : = 1 to n do               if min > a[i] then min : = a[i];       writeln('min = ', min);             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               if i mod 2 = 0 then {если нужен фильтр}                       sum : = sum + a[i];       writeln('sum = ', sum); end.

Вточке, из которой он начал путь

Популярно: Информатика