Дан массив А целых чисел состоящий из 15 элементов. заполнить с клавиатуры: найти номер первого отрицательного элемента делящегося на 5 с остатком 2.

program zz1;

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

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

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

begin

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

read (a[i]);

for i:=1 to n do

if (a[i] mod 5 = 2) and (a[i] < 0) then begin k:=i; break; end; / / проверяем, если число при делении на пять дает в остатке два и оно отрицательное, то запоминаем его номер

write (' номер первого отрицательного элемента делящегося на 5 с остатком 2 = ', k);

end.