Написать программу вывода на экран чисел, если они чётные и индексы их ячеек чётные.

214

369

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

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

aska311203

Информатика

4,4(6 оценок)

Var a: array [1..1000]of integer; i,n: integer; begin write('размер массива n = '); readln(n); for i: = 1 to n do begin write('a[',i,'] = '); readln(a[i]); end; writeln; for i: = 1 to n do if (i mod 2 = 0) and (a[i] mod 2 = 0) then write(a[i], ' '); end.