КС
Катерина Сапунова
SOS!!!нужна помощь! срочно
Паскаль
Дан двумерный массив целых чисел. В каждой его строке найти:
а) первый отрицательный элемент (принять, что отрицательные элементы есть в каждой строке) ;
Паскаль
Дан двумерный массив целых чисел. В каждой его строке найти:
а) первый отрицательный элемент (принять, что отрицательные элементы есть в каждой строке) ;
var
a: array [1..10, 1..15] of integer;
i, j: integer;
begin
randomize;
writeln('random array:');
for i := 1 to 10 do begin
for j := 1 to 15 do begin
a[i, j] := random(101) - 50;
write(a[i, j]:4);
end;
writeln;
end;
for i := 1 to 10 do begin
write('row: ', i);
for j := 1 to 15 do
if a[i, j] < 0 then begin
write('; col: ', j, '; value: ', a[i, j]);
break;
end;
writeln;
end;
end.
Пишите на почту или в асю 586178755