Может кто нибудь написать небольшую программу по паскалю с массивами. и описать что выполняет каждая команда ? нужно на олимпиаде хоть что нибудь написать .

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

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

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

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

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

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

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

                                       for j:=1 to 2 do readln(a[i,j]);

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

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

в строку: for i:=1 to 5 do 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 to n do

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