В первой строке вводится число N (1<=N<=20) - количество элементов одномерного массива
Во второй строке вводится N целых чисел (ввод чисел происходит с клавиатуры)
В третьей строке вводятся целые числа a и b.

Найти сумму элементов массива, кратных a или b.

Пример входных и выходных данных
№ теста Входные данные Выходные данные
1 5
1 2 3 4 5
2 3 9
2 3
1 2 3
1 2 6

Запрещенные операторы: reverse;min;max;sum

program z1;

var x,y: real;

begin

writeln('vvedite x i y');

readln(x,y);

if y=5*x*x-7*x+2 then

writeln('yes');

else

writeln('no');

end;

язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b);   readln (c);   min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.