Дан массив целых чисел. Напечатать все четные элементы.

Question

Информатика

Феосовия

16 июля, 17:06

Дан массив целых чисел. Напечатать все четные элементы.

+5

Ответы (1)

Знаешь ответ?

Геннадий · Answer 1

Program z1; Var a: array [1 ... 100] of integer; i, n:integer; Begin write ('Введите рамер массива - '); readln (n); for i:=1 to n do begin a[i]:=random (50) - 0; write (a[i],' '); end; writeln; for i:=1 to n do if (a[i] mod 2 = 0) then write (a[i],' '); End.