Вывести позиции нечетных элементов

program poz_nechetn;
uses crt;
var a:array[1..100] of integer;
i,n:integer;
begin
writeln(‘введите n’);
readln(n);
for i:=1 to n do
begin
writeln(‘Введите ‘,i,’ элемент’);
readln(a[i]);
end;

// Вариант I
i:=1;
while i<=n do
begin
if a[i] mod 2<>0 then
write(i,’ ‘);
i:=i+1;
end;

//Вариант II
//for i:=1 to n do
//if a[i] mod 2<>0 then
//write(i,’ ‘);
readkey;
end.

Найти среднее арифметическое нечетных элементов массива

Program uyghf;
uses crt;
var a:array[1..100] of integer;
n,k,i:integer;
sr:real;
begin
writeln(‘введите количество чисел’);
readln(n);
sr:=0;
k:=0;
for i:=1 to n do
begin
writeln(‘введите’,i,’элемент’);
readln(a[i]);
if a[i] mod 2<>0 then
begin
sr:=sr+a[i];
k:=k+1;
end;
end;
clrscr;
sr:=sr/k;
writeln(‘среднее арифметическое =’,sr);
readkey;
end.

Заменить элементы, стоящие на четных позициях, их кубами

program a1;
uses crt;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln(‘введите кол-во чисел’);
readln(n);
for i:=1 to n do
begin
writeln(‘введите’,i,’-элемент’);
readln(a[i]);
end;

//Вариант I
i:=1;
write(‘дано:’);
while i<=n do
begin
write (a[i],’ ‘);
if i mod 2=0 then
a[i]:=a[i]*a[i]*a[i];
i:=i+1;
end;

// Вариант II
write(‘дано:’);
for i:=1 to n do
write (a[i],’ ‘);
for i:=1 to n do
if i mod 2=0 then
a[i]:=a[i]*a[i]*a[i];

//Вариант III
i:=2;
while i<=n do
begin
a[i]:=a[i]*a[i]*a[i];
i:=i+2;
end;

//Окончание для всех вариантов
writeln;
write(‘итог:’);
for i:=1 to n do
write(a[i],’ ‘);
readkey;
end.

Сумма квадратов четных чисел массива

Program summa;
uses crt;
var a:array[1..100] of integer;
b,sum,i,n:integer;
Begin
clrscr;
writeln(‘введите кол-во элементов’);
readln(n);
for i:=1 to n do
begin
writeln(‘введите’,i,’-й элемент’);
readln(a[i]);
if a[i] mod 2=0 then
begin
b:=a[i]*a[i];
sum:=sum+b;
end;
end;

//можно проще — без переменной b
writeln(‘Сумма=’,sum);
readkey;
end.