Нахождение числа строк матрицы, в которых есть отрицательные элементы - Turbo Pascal

Формулировка задачи:

помогите пожалуйста решить задачи в турбопаскале , буду очень признателен)) 1)составить программу нахождения числа строк двумерного массива A(N,N), в которых есть отрицательные элементы. 2)составить программу заполнения одномерного массива случайными числами в диапозоне от 0 до 12 с выводом результируюшего массива на экран и нахождения индекса элемента равного 6 (если такого элемента нет то вывести диагностическое сообщение на экран). 3)Матрицу A(n, n) сформировать по следующему принципу: по диагонали расположены единицы, выше диагонали-нули, а элементы, расположенные ниже диагонали, равны сумме соответствующих индексов.

Код к задаче: «Нахождение числа строк матрицы, в которых есть отрицательные элементы - Turbo Pascal»

textual
const n=5;
var a:array [1..n,1..n] of integer;
i,j,k:integer;
f:boolean;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(200)-50; write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to n do
begin
f:=false;
for j:=1 to n do
 
if a[i,j]<0 then begin f:=true; break;end;
if f then k:=k+1;
end;
writeln('chislo...',k);
readln
end.

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ