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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
