Пожалуйста помогите срочно! Подсчитать количество отрицательных элементов двумерного...

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;  <br>   end;
writeln(k);
end.

Comments

Спасибо огромное Вам )))

---

ну тогда
if (i=j) and (a[i,j] mod 5 = 0) then p*=a[i,j]

---

а Вы на каком языке пишите? :)

---

а надо к первой задачи таблицу делать?

---

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

---

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

---

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

---

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

---

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

Answer 2

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; <br>  writeln('Количество', n);
   for i:=1 to 3 do
    begin 
    for j:=1 to 4 do
    write(a[i, j]:4);
    writeln;
    end;
  end.