Var i, j, l, r, max, min, sum: integer; mas: array [1 .. 5, 1 .. 5] of 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 класс
311
Алгоритмы обработки двумерных массивов (Паскаль)
Было полезно?
Рекомендуем
Вы учитель или ученик?
Познакомьтесь с нашим образовательным онлайн-сервисом с тысячами интерактивных работ
Учителю
Удобно проводить уроки в классе, назначать работы на дом и анализировать результаты всего класса или конкретных учеников
Ученику
Самостоятельно изучать новые и повторять пройденные темы, готовиться по индивидуальной траектории и оценивать результаты на наглядных графиках