Question

1,Опишите целочисленный массив из 32 элементов
2,Массив заполнен по закону: var a:arrey(1/...20) of integer,
i :integer.
begin
for i:=2 to 20 do
a(i):=2*i+5
Чему равны первый, пятый и десятый элементы?

Answer 1

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.