Решить алгоритм в паскале ABC
Mariaaria22604
3
09.04.2020 08:19
0
Другие вопросы по теме Информатика
томка112
23.09.2019 21:50
rakrak2016
11.07.2019 01:10
норрд
11.07.2019 01:10
НиколайКот
11.07.2019 01:10
yanchikkatsia
18.06.2019 19:18
vikazinoveva03
18.06.2019 19:34
kamilamih
18.06.2019 20:50
innahot418
29.09.2019 08:40
Популярные вопросы
- Параллелепипед. (векторы ): в1д1+с1с +с1в +ас1+са+а1д1...
2 - Образуй словосочетание используя указанную форму падежа зависимого...
3 - Яку роль у природі відіграють хрящові риби?...
1 - Запиши. графически обозначь словосочетания глаг.+ сущ. будет ли...
2 - Для чего нужны отверстия в деталях?...
2 - Только тем кто читал рассказ васюткино озеро ! ответьте на вопросы:...
3 - Что вам известно о строении и образе кишечнополостных. в краткости....
3 - Какие есть синонимы к слову родина?...
3 - Как велика должна быть высота столба ртути и столба спирта, если...
3 - Write about liz and mike. model.she s qot a red book.he s qot...
2
var n,i,m,pp,a:integer;
Begin
pp:=0;
m:=0;
Readln(n);
for i:=1 to n do Begin
Readln(a);
if (pp=0) and (a mod 3=0) then Begin
pp:=1;
m:=a;
end;
if (pp=1) and (a mod 3=0) and (a<m) then m:=a;
end;
Writeln(m);
end.