Регистрация
Ydalxa534
22.10.2020 18:05
Информатика
Есть ответ 👍

Виконати практичну роботу, 8 класс 25 БАЛЛОВ

230
484
Посмотреть ответы 1

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

Smitanka228
Smitanka228
4,7(1 оценок)
Var m : array[1..10] of integer; max,min,sum,i : integer; begin   min: =1; max: =1; sum: =0;   for i: =1 to 10 do   begin     m[i]: =random(100);     sum: =sum+m[i];     if m[i]< m[min] then min: =i;     if m[i]> m[max] then max: =i;     writeln(m[i]);   end;   writeln('ср.арифм. макс.и мин. элементов: ', (m[max]+m[min])/2);   writeln('ср.арифм. всех элементов: ', sum/10); end.

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