Помогите пожалуйста
В двухмерном массиве А(4;4) вычислить количество строк,в которых есть отрицательные элементы
Ответы на вопрос
Ответил allangarsk
0
var A:array[1..4,1..4] of integer; i,j,n,k:integer;
begin
for i:= 1 to 4 do begin
k:=0;
for j:= 1 to 4 do begin
A[i,j]:= random(25)-5;write(A[i,j]:4);
if (A[i,j]< 0) and (k=0) then begin n:= n +1; k:=1; end;
end;
writeln;end;write('количество строк,в которых есть отрицательные элементы ',n);end.
begin
for i:= 1 to 4 do begin
k:=0;
for j:= 1 to 4 do begin
A[i,j]:= random(25)-5;write(A[i,j]:4);
if (A[i,j]< 0) and (k=0) then begin n:= n +1; k:=1; end;
end;
writeln;end;write('количество строк,в которых есть отрицательные элементы ',n);end.
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Математика,
2 года назад
Математика,
2 года назад
Математика,
7 лет назад
Математика,
7 лет назад