Безотлагательно, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА Надобно, УМОЛЯЮ, Я Теснее 30
Безотлагательно, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА Надобно, Упрашиваю, Я Теснее 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] lt; min_e then min_e := a[i, j]; if a[i, j] gt; 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] lt; min_e then min_e := a[i, j]; if a[i, j] gt; 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.
Stefanija
кривовато код вставился
Esenija
код непрвильный
Marija Drobjazgina
в приложенном файле код правильный.
Денис Мухетдинов
работает? нормально?
Саша Малюков
а как легче?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Облако тегов