Дан массив а 5. Случайные числа от 0 до 30. Найти сумму и среднее арифметическое всех чисел.
Дан массив а 5. Случайные числа от 0 до 30. Найти сумму и среднее арифметическое всех чисел.
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var a:array [1..5] of integer;
s, k, n : integer;
begin
for I:=1 to 5 do begin
readln ( a[I]);
s:=s+a[I];
k:=k+1;
end;
n:=s/k;
writeln (s, k);
end.
надеюсь помог
Не нашли ответ?
Похожие вопросы