Упр.3.79 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

Задача

-5, 3, 1, -4, -3, 2, 5, -1, -7, 4.
Составьте таблицу значений переменных.
Запишите соответствующую программу на языке программирования Паскаль.
Вывод:
z = 15 – сумма элементов массива больших 0, y = -20 – сумма элементов массива не больших 0.
program Z_79;
const
a: array [1..10] of integer;
var
i, y, z: integer;
begin
for i := 1 to 10 do
read(a[i]);
y := 0; z := 0;
for i := 1 to 10 do
if a[i] > 0 then z := z + a[i]
else y := y + a[i];
writeln(‘y=’, y, ‘ z=’, z)
end.

Подробный ответ

По блок-схеме сначала вводятся 10 чисел массива $$a[1..10]$$, затем переменным $$y$$ и $$z$$ присваивается значение $$0$$. После этого массив просматривается ещё раз:

если $$a[i] > 0$$, то $$z := z + a[i]$$;
иначе $$y := y + a[i]$$.

Для входного потока данных:

$$-5,\ 3,\ 1,\ -4,\ -3,\ 2,\ 5,\ -1,\ -7,\ 4$$

получаем:

i	a[i]	y	z
1	-5	-5	0
2	3	-5	3
3	1	-5	4
4	-4	-9	4
5	-3	-12	4
6	2	-12	6
7	5	-12	11
8	-1	-13	11
9	-7	-20	11
10	4	-20	15

Итоговые значения переменных:

$$y = -20,\quad z = 15$$

То есть $$z$$ — сумма положительных элементов массива, а $$y$$ — сумма неположительных.

program Z_79;
var
  a: array [1..10] of integer;
  i, y, z: integer;
begin
  for i := 1 to 10 do
    read(a[i]);
  y := 0; z := 0;
  for i := 1 to 10 do
    if a[i] > 0 then
      z := z + a[i]
    else
      y := y + a[i];
  writeln(‘y=’, y, ‘ z=’, z)
end.