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

Question

Информатика

Декабрена

17 июля, 09:11

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

+2

Ответы (1)

Знаете ответ на вопрос?

Хрися · Answer 1

var a:array[1 ... 15]of integer;

i, j:integer;

begin

for i:=1 to 15 do readln (a[i]) ;

for i:=1 to 15 do begin

j:=i;

if (a[i]<0) and (a[i] mod 5=-2) then break;

end;

writeln (j) ;

end.