Найти среднее арифметическое 6 рандомных чисел до 100 в массиве.паскаль

saleev16 saleev16    1   16.08.2019 20:50    2

Ответы
lolkek6969 lolkek6969  04.10.2020 23:29
Program zadacha;vara: array[1..6] of integer;i: integer;sr: real;
beginfor i:=1 to 6 do begina[i]:=random(100);write(a[i]:6);end;
sr:=0;for i:=1 to 6 do beginsr:=sr+a[i];end;
writeln();sr:= sr/6;writeln('sr=', sr:6:2);end.
Найти среднее арифметическое 6 рандомных чисел до 100 в массиве.паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика