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.
