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

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

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;