Заполнить линейный массив из 10 элементов случайными числами. вычислить среднее арифметическое всех его элементов.pascal abc

Aisezim2002 Aisezim2002    2   26.09.2019 21:40    2

Ответы
nadezdaakopan nadezdaakopan  08.10.2020 21:10
Var
  a: array [1..10] of integer;
  i, k: byte;
  sum: real;
 
begin
randomize;
sum := 0;
k := 0;

writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
  a[i] := random(50);
  sum := sum + a[i];
  k := k + 1;
  write(a[i], ' ');
end;

writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);
 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика