тема: Процедуры и функции. Дана матрица размера 6 на 4. Найти ...

Moderator

Program matritsa; Uses crt; Var s:integer; {Переменная S - сумма} m:array[1..6,1..4]of integer; {матрица} i,j:byte; {Для использования циклов}Begin clrscr; {Очистка экрана} S:=0; {Обнуляем s} For i:=1 to 6 do {проходит столбцы} For j:=1 to 4 do {проходит строки} m[i,j]:=random(101)-50; {присваивает случайное значение от -50 до 50} For i:=1 to 6 do {проходит столбцы} Begin {начало операторных скобок} Writeln; {пропуск строки} For j:=1 to 4 do {проходит строки} Write(m[i,j]:4); {вывод значения} End; {конец операторных скобок} Writeln; For i:=1 to 6 do {проходит столбцы} For j:=1 to 4 do {проходит строки} If m[i,j]