Задание 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]); <span>end. </span>З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.
<span>var s: string; begin read(s); if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then writeln('Есть одинаковые цифры') else writeln ('Одинаковых цифр нет'); end.</span>