Program Sarumyana;
const n=10;
var a:array[1..n] of integer;
tri, nol, odd, i: integer;
begin
writeln('*** alphaues is thinking... ***');
tri:=0;
nol:=0;
odd:=1;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i] mod 3 = 0 then tri := tri + a[i];
if a[i] = 0 then nol := nol + 1;
if i mod 2 = 1 then odd := odd * a[i]
end;
write('Строка чисел: ');
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, кратных 3, равна ',tri);
writeln('Количество нулевых элементов = ',nol);
writeln('Произведение элементов, стоящих на нечётных местах, = ',odd);
end.
Program a1;
Uses crt;
const n=8;
Var a:array[1..n] of integer;
ch,s:integer;
sr:real;
i:byte;
Begin
Writeln('Массив');
For i:=1 to n do
begin
a[i]:=random(101)-50;
writeln(a[i]);
end;
For i:=1 to n do
s:=s+a[i];
sr:=s/n;
For i:=1 to n do
if a[i] mod 2 = 0 then ch:=ch+1;
s:=0;
For i:=1 to n do
if i mod 2 <> 0 then s:=s+a[i];
Writeln('ответы');
Writeln('1) Среднее значение элементов массива = ', sr);
Writeln('2) Количество чётных элементов = ', ch);
Writeln('3) Сумма элементов массива с нечётными номерами = ', s);
End.
