Pascal.составьте программу для нахождения суммы отрицательных четных элементов двумерного...

Question

Pascal.составьте программу для нахождения суммы отрицательных четных элементов двумерного массива

Comments

Язык какой?

---

Pascal

---

Значит я не могу вам помочь.

---

Я уже сам понял как это сделать)

---

и то не плохо - задание крайне простое.

---

Как оказалось да, просто были некоторые казусы, вот и хотел увидеть предложения по решению данной задачи от других людей

Answer 1

Program aliona;
const n =10;
var a:array[1..n,1..n] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do 
begin
a[i,j]:=random(30); 
write ( 'а(', i, ',', j, ')=', a[i,j]);
end ;
s:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i] (mod 2 =0) and (a[i]<0) then s:=s+a[i];<br>writeln('s=',s);
readln;
end.