Напишите программу на паскале к дано н-натуральных чисел не привышавшая 300 .найти наибольшее число с предпоследней цифрой 0. заранее

1. современный вариант (коротко, быстро и наглядно, кто знает). так уже начали учить в некоторых школах. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =arrrandom(readinteger('n='),1,300).println.           where(k-> (k> =100) and ((k mod 100) div 10=0));   if s.count> 0 then writeln(s.max) else writeln('нет элементов') end. пример n= 15 76 283 171 140 113 65 185 35 202 42 93 51 205 76 138 205 2. а так по-прежнему учат в большинстве школ. стиль "80-х годов прошлого века". долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут. const   nn=100; var   i,n,max: integer;   a: array[1..nn] of integer; begin   write('n=');   read(n);   randomize;   max: =0;   for i: =1 to n do begin       a[i]: =random(300)+1;       write(a[i],' ');       if (a[i]> =100) and ((a[i] mod 100) div 10=0) then           if a[i]> max then max: =a[i]       end;   writeln;   if max> 0 then writeln(max)   else writeln('нет элементов') end. пример n=15 219 68 131 115 104 169 80 288 143 108 124 214 50 101 1 108

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;     if(max = 0) then write('нет таких чисел.')     else write(max); end.

ответ:WinRar Gimp

Объяснение: