Дан массив А целых чисел состоящий из 15 элементов. заполнить с клавиатуры: найти номер первого отрицательного элемента делящегося на 5 с остатком 2.
Дан массив А целых чисел состоящий из 15 элементов. заполнить с клавиатуры: найти номер первого отрицательного элемента делящегося на 5 с остатком 2.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы