3 задачи в паскале.

[Nato4ka]

Здравствуйте!
Необходима ваша помощь, очень надеюсь что вы меня выручите!

Нужно решить 3 задачи в паскале.

1)составьте программу ввода и вывода на экран матрицы
А:51234
28463
71906

2)подсчитать сумму положительных элементов заданного массива А(N)

3)для заданной целочисленной матрицы определить является ли сумма ее элементов нечетным числом и вывести на экран соответствующий текст

[Sazary]

Выручим. Спрашивайте, что непонятно. Выкладывайте ваши наработки.
Задачи элементарные.

2)

count := 0;
for i:=1 to N do
 if a[i]>0 then inc(count);

3)

S := 0;
for i:=1 to M do
 for j:=1 to N do 
  S := S + a[i,j];
if S mod 2 <> 0 then writeln('Сумма - нечетное число');

[sby]

1)

program masiv;
uses crt;
var a:array[1..5,1..3] of integer;
i,j:integer;
begin
     clrscr;
     for i:=1 to 3 do
     for j:=1 to 5 do
     begin
          write('A[',i,',',j,']=');
          readln(a[i,j]);
     end;
     for i:=1 to 3 do
     begin
     writeln;
     for j:=1 to 5 do
     write('   ',a[i,j]);
     end;
     readln;
end.

[sby]

а вот так еще лучшы

var a:array[1..3,1..5] of integer;