Регистрация
ангелочек1631
15.07.2021 01:34
Информатика
Есть ответ 👍

Выполнить на машине Поста программу:

228
335
Посмотреть ответы 1

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

patik20001
patik20001
4,6(93 оценок)
Var x, i: integer;     a: array [0..9] of integer; begin       for i : = 0 to 9 do       begin           readln(a[i]);           if (a[i] < 0) then x : = x + a[i];       end;       writeln(x); end.вот так это сделать можно)

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