Задание 1: Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран  элементов массива с нечетными значениями.Задание 2:Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода н...

Задание 1: Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран  элементов массива с нечетными значениями. Задание 2:Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран  элементов массива с четными положительными значениями.
Гость
Ответ(ы) на вопрос:
Гость
з1: Program z; var mas: array [1..10] of integer; i, x: integer; begin for i:=1 to 10 do readln(mas[i]); for x:=1 to 10 do if mas[x] mod 2 = 1 then writeln(mas[x]); end. З2: Program z; var mas: array [1..10] of integer; i, x: integer; begin for i:=1 to 10 do readln(mas[i]); for x:=1 to 10 do if (mas[x] mod 2 = 0) and (mas[x] > 0) then writeln(mas[x]); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы