Одномерные массивы

Вариант №1

1. Дан массив целых чисел, состоящий из 20 элементов. Заполнить его случайными числами. Найти:

• сумму элементов, имеющих нечетное значение;

• индексы тех элементов, значения которых больше заданного числа А;

• в данном массиве положительные элементы (вывести их на экран), кратные k.

Var

s, i, a, k:integer;

m:array[1 ... 20]of integer;

begin

write ('Введите А и k: ') ;

readln (a, k) ;

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

for i:=1 to 20 do

begin

m[i]:=random (20) ;

write (m[i],' ') ;

if m[i] mod 2=1 then s:=s+m[i];

end;

writeln;

writeln ('Сумма нечетных: ', s) ;

write ('Искомыe индексы: ') ;

for i:=1 to 20 do

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

writeln;

writeln ('Положитеьные, кратые ', k,': ') ;

for i:=1 to 20 do

if (m[i]>0) and (m[i] mod k=0) then write (m[i],'; ') ;

end.