Дан массив целых чисел. Напечатать все четные элементы.
Дан массив целых чисел. Напечатать все четные элементы.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы