Консультация № 138653
30.05.2008, 12:51
0.00 руб.
0 1 1
Добрый день, Уважаемые эксперты.
Помогите решить задачку.
Составить программу, формирующую целочисленную квадратную матрицу. В матрице найти номер первой из строк, содержащей только положительные элементы.
Заранее благодарю

Обсуждение

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

Приложение:
uses crt;var n,i,j,k,p:integer; a:array[1..50,1..50]of integer;beginclrscr;write(‘n=‘);readln(n);randomize;Writeln(‘Ishodnaja matrica:‘); {создаем и выводим на экран матрицу}for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10)-1; {случайные числа диапазон [-1,9]} write(a[i,j]:4); end; writeln; end;readln;p:=0;for i:=1 to n do begin k:=0; for j:=1 to n do if a[i,j]>0 then {если положительное} begin k:=k+1; {считаем} end; if k=n then {если все положительные в строке} begin writeln(‘Pervaja stroka=‘,i);{выводим номер первой такой строки} readln; exit; {заканчиваем программу} end else p:=p+1; {считаем негодные строки} end;if p=n then writeln(‘Takih strok net!‘);{если все, сообщаем}readlnend.
Форма ответа