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

xDanielDash xDanielDash    1   12.07.2019 11:40    2

Ответы
KATE4213 KATE4213  18.09.2020 11:51
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика