Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Найти сумму всех элементов массива целых чисел,которые меньше среднего арифметического элементов массива.Размерность массива-20.Заполнение массива осуществить случайными числами от 150 до 300

Ответ оставил Гость

var
a:array [1..20] of integer;
i,s:integer;
k:real;
begin
Randomize;
k:=0;
for i:=1 to 20 do
begin
  a[i]:=random(150)+150;
  k:=k+a[i];
  write(a[i], );
end;
k:=k/20;
s:=0;
for i:=1 to 20 do if a[i]writeln;
writeln(Среднее арифм. = ,k);
writeln(Сумма элементов массива меньших ,k, = ,s);
end.