Язык паскаля. найти среднее значение всех положительных чисел из 130 заданных чисел

глупыйлолик34 глупыйлолик34    1   07.04.2019 19:29    0

Ответы
kumalena73 kumalena73  28.05.2020 20:30

Var i:Integer;s:real;

A:array[1..130]of integer;

Begin

S:=0;

For i:=1 to 130 do begin

A[i]:=random(100);

S:=s+A[i];

End;

S:=s/130;

Write(s);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика