Заполнить массив на 200 элементов случайными числами от 20 до 80 - Free Pascal

Формулировка задачи:

Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80: 1)Найти среднее арифметическое всех элементов. 2)Найти среднее арифметическое всех элементов меньше пятидесяти 3)Заменить наименьшие значения в массиве нулями Вывести полученный массив.

Код к задаче: «Заполнить массив на 200 элементов случайными числами от 20 до 80 - Free Pascal»

textual
type TRangeA=1..200;
var
  a: array [TRangeA] of Integer;
  i, mn, s, s50, c50: Integer;
begin
  Randomize;
  Write('A ='); mn:=MaxInt;
  for i in TRangeA do begin
    a[i]:=20+Random(80-20+1); Write(' ',a[i]); s:=s+a[i];
    if a[i]<50 then begin s50:=s50+a[i]; Inc(c50); end;
    if mn>a[i] then mn:=a[i];
  end; WriteLn;
  WriteLn('Avg = ',s/(High(a)-Low(a)+1),', Avg 50 = ',s50/c50);
  Write('A''=');
  for i in TRangeA do begin if a[i]=mn then a[i]:=0; Write(' ',a[i]); end; WriteLn;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ