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

Question

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

Answer 1

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

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;