Дан массив а целых чисел состоящий из 15 элементов. заполнить с клавиатуры: найти номер первого отрицательного элемента делящегося на 5 с остатком 2.
Аня20171502
1
20.03.2019 07:00
0
Другие вопросы по теме Информатика
maksim22771
10.12.2020 16:32
yotuber
10.12.2020 16:32
Jdjdkdjd
10.12.2020 16:32
папенко
26.07.2019 00:30
aitbek99
26.07.2019 00:40
brazervind
26.07.2019 00:40
rozella2017
26.07.2019 00:40
seva13243
26.07.2019 00:40
Популярные вопросы
- Написать предложение найти 1 существительное 1глагол и зделать морфологический...
3 - Answer the questions. 1. why was the holiday unplanned and unprepared?...
1 - Морфологический разбор 1сущиствительно 1глагола чтобы было предложения...
2 - Кожне з наступних рівнянь має корені .знайдіть суму і добуток цих коренів...
2 - 91000-x=64000: 4,546: x=6,x: 3=8: 2,x: 3=800: 4 решить...
1 - Нанесите на контурные карты цифровые обозначения перечисленных обьектов...
1 - Нужно решить примеры 1) 9-3 дробь 4 десятых = 2) 16 целых 3 пятнадцатых...
3 - Решите уравнения: а) 6*(12+3х)-15 х=84 б) 144: (11у+4 2/3)=12 !...
2 - Угол в треугольника авс равен 32° а угол с 40°. сколько % угла в составляет...
3 - Втреугольник авс вписана окружность ав=9, вс=8, ас=6. найти длину отрезка...
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.