Хотя бы 3-4 задачи!
1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5).
2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
3) Дан одномерный целочисленный массив А, состоящий из N элементов. Найдите произведение всех нечетных элементов массива.
4) Дан двумерный массив размерностью NXM, заполненный случайными числами. Заменить все четные элементы массива на 2, а нечетные на 1. На экран вывести исходный и новый массив.
5) Дан двумерный массив размерностью NXM, заполненный случайными числами. Напишите программу, в результате выполнения которой все элементы массива увеличиваются в 2 раза. На экран вывести исходный и новый массив.

Сделал все!) поставь наилучшее!1)var a:array [0..5] of Integer;    i,j:Integer;begin Randomize; j:=0;for i:=0 to 5 do a[i]:=Random(100);for i:=0 to 5 do if a[i] mod 3 =0 then  Inc(j);Writeln(j);readln;2)var a:array [0..5] of Integer;    i,j:Integer;begin Randomize; j:=0;for i:=0 to 5 do a[i]:=Random(100);for i:=0 to 5 do if a[i] mod 2 =0 then  j:=j+a[i];Writeln(j);readln;3)a:array [0..5] of Integer;    i,s:Integer;beginRandomize;s:=1;for i:=0 to 5 do a[i]:=Random(9)+1;for i:=0 to 5 do if i mod 2 <>0 then  s:=s*a[i];Writeln(s);readln;end.4)const n=5;m=5;var a:array [0..n,0..m] of Integer;    i,j:Integer;begin  Randomize;for i:=0 to n dofor j:=0 to m do a[i,j]:=Random(100); for i:=0 to n do begin  Writeln;  for j:=0 to m do  write(a[i,j]:3); end;for i:=0 to n dofor j:=0 to m do begin if a[i,j] mod 2 =0 then  a[i,j]:=2 else if a[i,j] mod 2 <>0 then  a[i,j]:=1;end;Writeln; for i:=0 to n do begin  Writeln;  for j:=0 to m do  write(a[i,j]:3);  end;Readln;end.5)const n=5;m=5;var a:array [0..n,0..m] of Integer;    i,j:Integer;begin  Randomize;for i:=0 to n dofor j:=0 to m do a[i,j]:=Random(10); for i:=0 to n do begin  Writeln;  for j:=0 to m do  write(a[i,j]:3); end;for i:=0 to n dofor j:=0 to m doa[i,j]:=a[i,j]*2;Writeln; for i:=0 to n do begin  Writeln;  for j:=0 to m do  write(a[i,j]:3);  end;Readln;end.