Предмет: Информатика,
автор: Аноним
СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СЛЬКО СМОЖЕТ, НО ПЕРВУЮ ЗАДАЧУ ОБЯЗАТЕЛЬНО!
1. РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ: Создайте двумерный массив целых чисел размером 5*7, заполненный случайными числами, которые не больше 80, и найти максимальный элемент и минимальный элемент массива. Узнать, во сколько раз максимальный элемент массива больше чем минимальный. Найти средне арифметическое элементов массива, которые кратные 5.
Ответы
Автор ответа:
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.
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.
Приложения:
danilkonon:
кривовато код вставился
Похожие вопросы
Предмет: Русский язык,
автор: Kis27
Предмет: Русский язык,
автор: elnara8
Предмет: Окружающий мир,
автор: Rafeck
Предмет: Информатика,
автор: skorostno1tarakan