Массивы в Паскале.

[[oblachko]]

Доброго времени суток, друзья! Не получаются 2 задачки на составление массива.

1. N учащихся одного класса получили оценки за контрольную работу. Сколько учащихся получили "двойку"?
2. Дан двумерный массив A размером 3х3, заполненный с клавиатуры. Требуется умножить элементы этого массива на 4, если А(1,1)>0, или на 7, если А(1,1)<0.

Помогите пожаулйста, Буду премного благодарен!

[Namolem]

стучи в асю

[ОДИНОЧЕСТВО В СЕТИ]

1)

 c2:=0;
for i:=1 to n do
if a[i]=2 then inc(c2);
writeln(c2);

2)

for i:=1 to 3 do
  for j:=1 to 3 do
if a[1,1]>0 then a[i,j]:=a[i,j]*4
else a[i,j]:=a[i,j]*7;