ПРОГРАММИРОВАНИЕ ПАСКАЛЬ Проверить, все ли строки матрицы C(n1×n2) содержат хотя бы один отрицательный элемент, если не все, сообщить номер первой, где нет отрицательных элементов.ВНИМАНИЕ: ВСЕ ЭТО ВЫПОЛНИТЬ БЕЗ ЦИКЛА FOR, ТОЛЬ...
ПРОГРАММИРОВАНИЕ ПАСКАЛЬ
Проверить, все ли строки матрицы C(n1×n2) содержат хотя бы один отрицательный элемент, если не все, сообщить номер первой, где нет отрицательных элементов.
ВНИМАНИЕ: ВСЕ ЭТО ВЫПОЛНИТЬ БЕЗ ЦИКЛА FOR, ТОЛЬКО WHILE ИЛИ REPEAT.
Гость
Ответ(ы) на вопрос:
Гостьvar ar:array of array of integer;
n1,k,i,n2,j:integer;
b:boolean;
begin;
readln(n1);
readln(n2);
inc(n1);
inc(n2);
k:=1;
setlength(ar,n1+1);
while k<>n1 do
begin;
setlength(ar[k],n2+1);
inc(k);
end;
b:=false;
k:=0;
i:=1;
j:=1;
writeln('Matrix:');
while i<>n1 do
begin;
writeln;
while j<>n2 do
begin;
ar[i,j]:=random(100)-50;
write(ar[i,j]:4);
inc(j);
end;
j:=1;
inc(i);
end;
i:=1;
j:=1;
while i<>n1 do
begin;
while j<>n2 do
begin;
if ar[i,j]<0 then b:=true;
inc(j);
end;
if b=false then
begin;
writeln;
writeln(i);
exit;
end;
b:=false;
inc(i);
j:=1;
end;
writeln;
writeln('Все');
end.
Не нашли ответ?
Похожие вопросы