Задать массив генератором случайных чисел в диапазоне [-20; 10] найти максимальный элемент массива и вывести на экран все нечетные элементы.

114

182

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

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

vika2088

Информатика

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

Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',10); a.println; writeln('max=',a.max); print('нечетные элементы: '); a.where(t-> t.isodd).println end.

1326237416414

Информатика

4,4(99 оценок)

Var n, i, aon_i, k: integer; f: boolean; function amountofnumbers(n: integer): integer; var s: integer; begin s : = 0; while n > 0 do begin s : = s + n mod 10; n : = n div 10; end; amountofnumbers : = s; end; begin readln(n); for i : = 0 to n do begin f : = true; aon_i : = amountofnumbers(i); for k : = 2 to 9 do f : = f and (aon_i = amountofnumbers(k * i)); if f then writeln(i); end; end.