срочно!!!!! напишите пожалуйста программу на паскале к задаче Дано н-натуральных чисел не привышавшая 300 .Найти наибольшее число с предпоследней цифрой 0. заранее спасибо
Answers & Comments
contrlc
Begin var max := 0; var n := readinteger('Введите n: '); write('Введите n чисел: '); for var i := 1 to n do begin var a := readinteger(); if(a.ToString.Length > 1) then if(a.ToString[a.ToString.Length - 1] = '0') then if(a > max) then max := a; end; write(max); end.
Answers & Comments
var max := 0;
var n := readinteger('Введите n: ');
write('Введите n чисел: ');
for var i := 1 to n do
begin
var a := readinteger();
if(a.ToString.Length > 1) then
if(a.ToString[a.ToString.Length - 1] = '0') then
if(a > max) then max := a;
end;
write(max);
end.