Дан массив целых чисел. напечатать все четные элементы. - вопрос №4727517 от vanechkamituso 20.06.2020 07:55

Question

Информатика: Дан массив целых чисел. напечатать все четные элементы.

vanechkamituso · Answer

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....