В двумерном массиве 4х3 найти количество элементов, больших -5. Если таких элементов не оказалось - вывести сообщене "Таких элементов нет!". Элементы ввести с клавиатуры.
Answers & Comments
mb17x
Var a: array [1..4, 1..3] of integer; i, j, k: integer; begin k:=0; for i:=1 to 4 do for j:=1 to 3 do begin begin read(a[i,j]); if (a[i,j]>-5) then inc(k); end; writeln; {чтобы перейти на новую строку} end; if (k<>0) then writeln('k=', k) else writeln('таких элементов нет'); readln; end.
Answers & Comments
i, j, k: integer;
begin k:=0;
for i:=1 to 4 do
for j:=1 to 3 do
begin begin read(a[i,j]);
if (a[i,j]>-5) then inc(k);
end;
writeln; {чтобы перейти на новую строку}
end;
if (k<>0) then writeln('k=', k)
else writeln('таких элементов нет');
readln;
end.