подпрограмы

[misha25525]

создать две подпрограммы, одна формирует массив зна4ень действительного типа, вторая формирует новый массив из элементов первого массива с четными индексами, на языке паскаль

[ROMA2PVT]

program matr;
uses
   crt;
var
    mas,b:array [1..100] of integer;
    i,n,j,kol:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  end;
writeln;
kol:=0;
for i:=1 to n do
if not odd(i) then
begin
inc(kol);
b[kol]:=mas[i];
end;
writeln;
for i:=1 to kol do
begin
write(b[i],' ');
end;
writeln;
 end.

Делай массив действительных чисел и в процедуры рассовывай.

[CrazyFKN~(103)~]

Спасибо большое=)можна с4итать семестровая написана)))