составьте программу ввода с клавиатуры элементов массива 1.10 и вывода на экран элементов с чётными индексами
Answers & Comments
Pelageya
Program massiv; var a: array [1..10] of integer; i, x: integer; begin for i:=1 to 10 do readln(a[i]); for x:=1 to 10 do if (a[x] mod 2 = 0) and (a[x] > 0) then writeln(a[x]); end.
Answers & Comments
var a: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(a[i]);
for x:=1 to 10 do
if (a[x] mod 2 = 0) and (a[x] > 0) then writeln(a[x]);
end.