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);
<span>end.

Вот так это сделать можно)</span>

0 0

4 года назад

Что такое информационные модели? из чего они "сделаны"?

ali7879 [1]

Информационная модель — модельобъекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними, входы и выходы объекта и позволяющая путём подачи на модель информации об изменениях входных величин моделировать возможные состояния

0 0

4 года назад

Определите, что будет напечатано в результате работы следующего фрагмента программы:var k, s: integer;begin s:=0; k:=1; while s

akmsle

Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s       k
0      1
4      4
11    7
21    10
34   13
50   16
69   19       ← s > 66. Выводим k.

0 0

4 года назад

QBASIC 9 КЛАСС Вычислить сумму первых N натуральных четных чисел

Синка

INPUT "n=", n
s = 0
i = 1
DO WHILE i <= n
s = s + 2 * i
i = i + 1
LOOP
PRINT "s="; s

0 0

4 года назад