Дан массив А целых чисел, состоящий из 20 элементов. Заполнить с клавиатуры. К чётным элементам прибавить А, а от нечётных отнять В (числа вводятся с клавиатуры).

program zz1;

const n = 20; / / задаем количество элементов в массиве

var i, a, b:integer; / / задаем переменные целого типа

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

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

write (' введите а ');

read (a);

write (' введите b ');

read (b);

for i:=1 to n do

if (m[i] mod 2 = 0) then m[i]:=m[i] + a else m[i]:=m[i] - b; / / проверяем, если число при делении на два дает в остатке ноль, то прибавляем а, иначе вычитаем b

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

end.