Question

Пожалуйста помогите срочно! Подсчитать количество отрицательных элементов двумерного массива в котором 3 строки и 4 столбца , заполнить вручную!! очень надо, заранее спасибо!

Answer 1

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.

Answer 2

какую таблицу?

Answer 3

цепная , и т.д ...

Answer 4

начало , условие , решение , конец

Answer 5

ну, я не знаю, как Вам учитель говорит

Answer 6

ну таблицу и программу составить по условию

Answer 7

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.