Написать программу на Паскаль. Двумерный массив заполнить рандомно. Найти номера первых отрицательных элементов каждой строки(столбца)
Написать программу на Паскаль. Двумерный массив заполнить рандомно. Найти номера первых отрицательных элементов каждой строки(столбца)
Ответ(ы) на вопрос:
//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(50)-20;
write(ma[i,j]:4);
end;
writeln;
end;
writeln('Сторки:');
for i:=1 to n do
begin
write(i,':');
for j:=1 to n do
if ma[i,j]<0 then
begin
writeln(j);
break;
end;
writeln;
end;
writeln('Столбцы:');
for j:=1 to n do
begin
write(j,':');
for i:=1 to n do
if ma[i,j]<0 then
begin
writeln(i);
break;
end;
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы