20 программу ввода с клавиатурой целых чисел от 1 до 10 и вывода на экран элементов массива с нечетными значениями

240

500

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

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

PidorPro

Информатика

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

Var a: array[1..10]of integer; i: integer; begin for i: = 1 to 10 do begin read(a[i]); if a[i] mod 2 < > 0 then write(a[i], ' '); end; end. /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/ //более современное решение // pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var a: = readlnstring('введите массив').tointegers; setlength(a, 10); a.where(t-> t.isodd).println; end.

dianahohlova

Информатика

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

Program pr_1; var e: array [1..10] of integer; i: integer; beginfor i : = 1 to 10 do e[i] : = random(1, 10); for i: = 1 to 10 do if e[i] mod 2 < > 0 then writeln(e[i]); end.