Консультация № 138629
30.05.2008, 10:11
0.00 руб.
0 1 1
Уважаемые эксперты, помогите решить:
Составить программу, формирующую целочисленную прямоугольную матрицу. Определить сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент.
Заранее спасибо

Обсуждение

давно
Профессор
401888
1232
31.05.2008, 20:23
общий
это ответ
Здравствуйте, Корчагин Петр Александрович!
Решение задачи с пояснениями в приложении.

Приложение:
uses crt;const n=6;m=7;var a:array[1..n,1..m]of integer; sum,k:integer; i,j:byte;begin clrscr; randomize; writeln(‘Matrix‘); for i:=1 to n do {создаем матрицу} begin for j:=1 to m do begin a[i,j]:=random(11)-2;{заполняем сдучайными числами из диапазона [-2,10]} write(a[i,j]:5); end; writeln; end;for i:=1 to n do begin k:=0;sum:=0; for j:=1 to m do if a[i,j]<0 then {если числа <0} begin inc(k); {считаем их} sum:=sum+a[i,j]; {считаем сумму} end;{Если есть хоть одно отрицательное число, выводим сумму в строке} if k>0 then writeln(‘Summa v stroke ‘,i, ‘=‘,sum); end;readlnend.
Форма ответа