Регистрация
lizadexx
09.07.2020 22:05
Информатика
Есть ответ 👍

Каким образом интернет вещей создает новое жизненное пространство человека​?

267
362
Посмотреть ответы 1

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

agapova2007
agapova2007
4,5(82 оценок)
Var   a: array of integer;   i, n: integer; begin   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do       read(a[i]);   for i : = 0 to n - 1 do   begin       if a[i] < 0 then a[i] : = 0;       write(a[i], ' ');   end; end.

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