Пожалуйста помогите срочно! Подсчитать количество отрицательных элементов двумерного массива в котором 3 строки и 4 столбца , заполнить вручную!! очень надо, заранее спасибо!
Пожалуйста помогите срочно! Подсчитать количество отрицательных элементов двумерного массива в котором 3 строки и 4 столбца , заполнить вручную!! очень надо, заранее спасибо!
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..3] of array [1..4] of integer;
i,j,k:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do begin
read(a[i,j]);
if a[i,j]<0 then k+=1;
end;
writeln(k);
end.
Гостьvar
a:array[1..3, 1..4] of integer;
n, i, j:integer;
begin
n:=0;
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i, j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i, j]<0 then n:=n+1;
writeln('Количество', n);
for i:=1 to 3 do
begin
for j:=1 to 4 do
write(a[i, j]:4);
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы