Регистрация
лика03072017
01.07.2020 01:26
Информатика
Есть ответ 👍

Delphi

подсчитать сумму всех положительных (не равных нулю) элементов заданного целочисленного

массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный

как решить данную ?

282
371
Посмотреть ответы 2

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

norucov
norucov
4,5(84 оценок)

ответ:

program sumarray;

var

  a: array [1..20] of integer;

  i, s: integer;

begin

  randomize;

  for i : = low (a) to high (a) do begin

    a [i] : = random (10) - 2;

    write (a [i] : 3);

  end;

  s : = 0;

  for i : = low (a) to high (a) do begin

    if a [i] > 0 then

      s : = s + a [i];

  end;

  writeln;

  writeln ('сумма = ', s);

  readln;

end.

asanovavenera
asanovavenera
4,6(54 оценок)
Переменная у не изменяется. следовательно, у=5в результате суммы переменная х увеличилась на 5 . х =3-5, х=-2

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