Может кто нибудь написать небольшую программку по паскалю с массивами. И

задание одномерного массива:

varИмяМассива:array [НижняяГраница..ВерхняяГраница] ofТипЭлементов;

задание двумерного массива:

varИмяМассива:array [НижняяГраница1..ВерхняяГраница1,НижняяГраница2..ВерхняяГраница2] ofТипЭлементов;

заполение массива:

одномерный массив: for i:=1 to5do readln(a[i]); ввод с клавиатуры

двумерный массив: for i:=1 to3do

                                       for j:=1 to2do readln(a[i,j]);

вывод массива на экран:

в столбец:for i:=1 to5do writeln(a[i]);

в строку:for i:=1 to5do write(a[i],' ');

матрица двумерного массива:

for i:=1 to n do

begin

for j:=1 to m do

write (a[i,j]:4);

writeln;

end;

деянья с одномерным массивом:

вычисление суммы частей:

s:=0;

for i:=1 to n do s:=s+a[i];

подсчет частей, удовлетворяющих условию:

k:=0;

for i:=1 tondo

if a[i] УсловиеОтбора then k:=k+1;