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

155

492

Посмотреть ответы 3

Ответы на вопрос:

Denchik01TURBO

Информатика

4,8(89 оценок)

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

savikdaniil3

Информатика

4,5(19 оценок)

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.

pandokokos22jopar

Информатика

4,7(63 оценок)

40 символов= 40 байт 40 строк * 40 символов = 1600 байт/1 страница 1600 байт * 48 страниц=76 800 байт 76 800 байт / 1024 = 75 килобайт ответ: 75 килобайт