Question

пожалуйста, это очень важно, прошу, помогите

Answer 1

const n=20;

var m:array [1..n] of integer;

i,s,a:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(111)-45;

if m[i] mod 2 <> 0 then s:=s+m[i];

write(m[i],'  ')

end;

writeln;

writeln('Сумма элементов, имеющих нечётные значения: ',s);

write ('Введите число А: ');

readln (a);

write ('Индексы элементов больше А: ');

for i:=1 to n do

if m[i] > a then write(i,'  ');

writeln;

end.