1) Вывести одномерный массив размерностью n. Вычислить сумму элементов стоящих на чётных местах.

2) Ввести одномерный массив с помощью клавиатуры. определить количество элементов кратных 3

1)

var

a:array[1 ... 50]of real;

i, n:byte;

Sn:real;

begin

write ('Введите количество элементов массива: ') ; readln (n) ;

for i:=1 to n do

begin

write ('a[', i,'] = ') ; readln (a[i]) ;

end;

clrscr;

writeln ('Исходный массив:') ;

/ * Вывод в строчку через запятую*/

for i:=1 to n-1 do write (a[i]:5:3,', ') ; write (a[n]:5:3,'.') ;

/*Простой вывод в столбик*/

for i:=1 to n do writeln (a[i]:5:3) ;

/*Сумма элементов, стоящих на четных местах*/

Sn:=0;

while i<=n do

begin

if odd (i) = false then Sn:=Sn+a[i];

i:=i+1;

end;

/*Вывод ответа*/

writeln ('Сумма элементов, стоящих на четных местах: ', Sn:5:3) ;

end.

2)

var

a:array[1 ... 50]of real;

i:byte;

begin

write ('Введите количество элементов массива: ') ; readln (n) ;

for i:=1 to n do

begin

write ('a[', i,'] = ') ; readln (a[i]) ;

end;

clrscr;

writeln ('Исходный массив:') ;

/ * Вывод в строчку через запятую*/

for i:=1 to n-1 do write (a[i]:5:3,', ') ; write (a[n]:5:3,'.') ;

/*количество элементов кратных 3*/

kol:=0;

for i:=1 to n do

if a[i] mod 3 = 0 then kol:=kol+1;

/*Вывод ответа*/

writeln ('Количество элементов массива, кратных трем: ', kol) ;

end.