Написать программу которая в последовательности натуральных чисел определяет минимальное...

Question

Написать программу которая в последовательности натуральных чисел определяет минимальное число оканчивающийся на 4

Answer 1

Var t,n,i,m,k:integer;
begin
readln(n);
read(t);
while (t mod 10 <> 4) do
begin
read(t);
k:=k+1;
end;
m:=t;
for i:=k to n do
begin
read(t);
if (t mod 10=4 and tend;
writeln(m);
end.

Comments

что там в 5 строке

---

var n,i,a,min: integer;
begin
readln(n);
min := 30001;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 4) and (a < min)
then min := a;
end;
writeln(min)
end.

---

вот это оно