ОЧЕНЬ СРОЧНО!!!Паскаль ABC Вводится последовательность целых чисел N. Найдите наибольший...

Question

ОЧЕНЬ СРОЧНО!!!Паскаль ABC Вводится последовательность целых чисел N. Найдите наибольший элемент последовательности не содержащий нулей. Буду очень благодарна за помощь

Comments

Как можно проще, через подпрограмму и циклы, пожалуйста

Answer 1

Var i,n,s,max: integer;
k,h: string;
begin
max:=0;
writeln('Введите кол-во чисел');
readln(n);
for i:=1 to n do
begin
readln(s);
Str(s,k);
if pos('0',k)=0 then
begin
if s>max then
max:=s;
end;
end;
writeln(max);
end.

Comments

Не могли бы вы написать через подпрограмму?