Предмет: Информатика,
автор: rogakvano
Напишите программу,которая в последовательности
Приложения:
![](https://files.topotvet.com/i/5d6/5d60244988761592d94846c9884c8af2.jpg)
Ответы
Автор ответа:
0
Program n1;
var i,max,n,a: integer;
begin
max:=30000;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a < 0) and (a mod 10<>4) and ( a<max ) then max:=a;
end;
writeln(max);
end.
var i,max,n,a: integer;
begin
max:=30000;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a < 0) and (a mod 10<>4) and ( a<max ) then max:=a;
end;
writeln(max);
end.
Похожие вопросы
Предмет: Математика,
автор: indiratabaeva252
Предмет: Русский язык,
автор: miirnushha
Предмет: Биология,
автор: joodarbekova
Предмет: Литература,
автор: Kozlenko