Нужно написать блок схему для следуйщей программы: Program Example1;Const n=6;m=4;Var A:array[1..n,1..m] of integer; i,j,k:byte;Begin For i:=1 to n do Begin For j:=1 to m do Begin A[i,j]:=random(31)-15; write(A[i,j]:4); End; wr...
Нужно написать блок схему для следуйщей программы: Program Example1;
Const n=6;m=4;
Var A:array[1..n,1..m] of integer;
i,j,k:byte;
Begin
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
write('Строки в которых один нулевой элемент: ');
For i:=1 to n do
Begin
k:=0;
For j:=1 to m do
if A[i,j]=0 then inc(k);
if k=1 then write(i:2);
End;
readln;
End.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы