Question

СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!!  КТО СЛЬКО СМОЖЕТ, НО ПЕРВУЮ ЗАДАЧУ ОБЯЗАТЕЛЬНО!

1.  РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ: Создайте двумерный массив целых чисел размером 5*7, заполненный    случайными числами, которые не больше 80, и найти максимальный элемент и  минимальный элемент массива. Узнать, во  сколько раз   максимальный  элемент массива больше  чем минимальный. Найти средне арифметическое элементов массива, которые кратные 5.

 

Answer 1

program bbbb;
var  min_e, max_e,  count, i, j, otn: integer;  a: array[1..5, 1..7] of integer;  srednee: real;
begin  for i := 1 to 5 do   begin    writeln;    for j := 1 to 7 do a[i, j] := Random(81);  end;  max_e := 1;  min_e := 81;  srednee := 0;  for i := 1 to 5 do     for j := 1 to 7 do     begin      if a[i, j] < min_e then min_e := a[i, j];      if a[i, j] > max_e then max_e := a[i, j];      if a[i, j] mod 5 = 0 then      begin        srednee := srednee + a[i, j];        count := count + 1;      end;    end;  otn := max_e div min_e;  srednee := srednee / count;      for i := 1 to 5 do   begin    writeln;    for j := 1 to 7 do write(a[i, j]:3);  end;  writeln;  writeln(min_e, ' ', max_e, ' ', otn, ' ', srednee);end.

60df78fe7e6502fc9b8cafc24be35aa6.pas