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.
Популярные вопросы