Var i, j, l, r, max, min, sum: integer; | Объявление | ||
|---|---|---|---|
for i := 1 to 5 do begin for j := 1 to 5 do begin
| readln (mas [i, j]); | … end end; | Ввод элементов |
writeln (mas [i, j]); | Вывод элементов | ||
Mas [i, j] := random (r – l + 1) + l; | Случайное заполнение. Диапазон чисел: [l, r] | ||
if (mas [i,j] > max) then max := mas [i,j]; | Максимальный элемент | ||
if (mas [i, j] < min) then min := mas [i,j] | Минимальный элемент | ||
sum := sum + mas [i, j]; | Сумма элементов | ||
Информатика • 10 класс
885
Алгоритмы обработки двумерных массивов (Паскаль)
Было полезно?
Рекомендуем
Вы учитель или ученик?
Познакомьтесь с нашим образовательным онлайн-сервисом с тысячами интерактивных работ
Учителю
Удобно проводить уроки в классе, назначать работы на дом и анализировать результаты всего класса или конкретных учеников
Ученику
Самостоятельно изучать новые и повторять пройденные темы, готовиться по индивидуальной траектории и оценивать результаты на наглядных графиках