06-08-2018 13:40
Информатика
1
48
Виталий Вийт

По паскале !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ответы:
Алена Волкова
06-08-2018 22:04

Var   i, n: integer;   a: array[1..1000000]of integer; begin   readln(n);   for i := 1 to n do read(a[i]);   for i := 1 to n do if(a[i] mod 2 = 0) then write(a[i], );   for i := 1 to n do if(a[i] mod 2 <> 0) then write(a[i], );end.

Также наши пользователи интересуются:

S=3км t=50 мин U=? помогите пдСтр 49 математика 1 класс
Картинка с текстом вопроса от пользователя Виталий Вийт

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «По паскале !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!» от пользователя Виталий Вийт в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!