Написать программу на Паскаль. Двумерный массив заполнить рандомно. Найти номера первых отрицательных элементов каждой строки(столбца)

Написать программу на Паскаль. Двумерный массив заполнить рандомно. Найти номера первых отрицательных элементов каждой строки(столбца)
Гость
Ответ(ы) на вопрос:
Гость
//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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы