Написать программу паскаль! Дан массив из 20 целых чисел, ...
Написать программу паскаль! Дан массив из 20 целых чисел, определить среднее арифметическое этого массива
Есть ответ
18.12.2022
437
Ответ
Var a: array [1..20] of integer; i,s:integer;
Begin
For i:=1 to 20 do begin
read(a[i]); s:=s+a[i];
end;
Writeln(s/20);
readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022