Регистрация
eegorov1996
27.06.2023 20:35
Информатика
Есть ответ 👍

С ИНФОРМАТИКОЙ!!! (все равно тратить некуда) ОСТАЛОСЬ ДВА ДНЯ!!!​

290
442
Посмотреть ответы 1

Ответы на вопрос:

gladiatorcor
gladiatorcor
4,4(34 оценок)
Program main; var a, b: array [1..100] of integer; k, n, i: byte; begin i: =1; readln (n); for k: =1 to n do readln(a[k]); for k: =1 to n do if a[k]< 0 then begin b[i]: =a[k]; i: =i+1; end; for k: =1 to n do if a[k]=0 then begin b[i]: =a[k]; i: =i+1; end; for k: =1 to n do if a[k]> 0 then begin b[i]: =a[k]; i: =i+1; end; for i: =1 to n do writeln (b[i]); readln; end.

Популярно: Информатика