1, Опишите целочисленный массив из 32 элементов

2, Массив заполнен по закону: var a:arrey (1 / ... 20) of integer,

i : integer.

begin

for i:=2 to 20 do

a (i) : = 2*i+5

Чему равны первый, пятый и десятый элементы?

var

mas:array[1 ... 20]of integer;

i:integer;

//s, s1:integer;

begin

writeln ('Элементы массива:') ;

for i:=2 to 20 do

begin

mas[i]:=2*i+5;

write (' ', mas[i]) ;

end;

writeln () ;

write ('Первый элемент массива: ', mas[1]+#10+'Пятый элемент массива: ', mas[5]+#10+'Десятый элемент массива: ', mas[10]) ;

end.