На паскале написать прогу, которая будет отсортировывать четные числа от нечетных, чисел 5 , использовать массив плз

251

295

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

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

egordyachenko

Информатика

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

Var a,b,c: integer; d: array [1..20] of integer; begin randomize; for a: =1 to 5 do begin d[a]: =random(-100,100); if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a]) else writeln('нечётный элемент массива ==> ',d[a]); end; end.

MrЕвгений228

Информатика

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

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin print('отрицательных: ',arrrandom(100,-50,50).println .where(x-> x< 0).count) end. тестовое решение: -22 8 50 -18 -37 -43 3 -18 50 -2 -33 -23 -32 41 -37 -6 -20 0 -14 40 6 -43 20 25 4 12 -1 -36 -44 -46 9 35 12 30 19 1 -36 8 -30 23 -48 38 47 34 -50 -47 27 48 -31 -13 46 -46 -42 29 -43 -29 38 -26 28 2 9 -12 -25 46 40 -17 15 -12 -28 12 -21 22 -20 13 37 19 -39 37 25 1 35 1 45 19 -42 4 26 34 23 -3 14 41 31 19 -36 15 12 -49 45 18 отрицательных: 42