Тема: Процедуры и функции. Дана матрица размера 6 на 4. Найти сумму отрицательных элементов всей матрицы. Через процедуру ввода и вывода и функцию!! Объясните пожалуйста каждую строчку.
Тема: Процедуры и функции. Дана матрица размера 6 на 4. Найти сумму отрицательных элементов всей матрицы. Через процедуру ввода и вывода и функцию!! Объясните пожалуйста каждую строчку.
Гость
Ответ(ы) на вопрос:
Гость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]<0 then {Проверка значения(меньше нуля?)}
S:=s+m[i,j]; {увеличивает сумму на значение данного элемента}
Writeln('Сумма отрицательных элементов матрицы =',s); {Вывод}
End.
Не нашли ответ?
Похожие вопросы