Задание 3 Вариант 2 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Запишите текст программы.
program s5_v2_3;
const
n = 20;
var
a, b: array[1..n] of integer;
i, sd, sc: integer;
begin
writeln(‘Ввод массивов’);
for i := 1 to n do
begin
a[i] := random(20);//массив осадков
b[i] := random(20) — 10//массив температур
end;
//вывод исходных массивов
for i := 1 to n do
write(a[i], ‘ ‘);
writeln;
for i := 1 to n do
write(b[i], ‘ ‘);
sd := 0; sc := 0;
for i := 1 to n do
if b[i] > 0 then sd := sd + a[i]
else sc := sc + a[i];
writeln;
writeln(‘количество в виде дождя =’, sd, ‘ количество в виде снега=’, sc);
end.

Нужно просмотреть все элементы массивов: в массиве a хранятся количества осадков, в массиве b — температуры. Если $$b[i] > 0$$, то соответствующие осадки считаем дождём, иначе — снегом. Затем накапливаем суммы в переменных sd и sc.

program s5_v2_3;
const
  n = 20;
var
  a, b: array[1..n] of integer;
  i, sd, sc: integer;
begin
  writeln(‘Ввод массивов’);
  for i := 1 to n do
  begin
    a[i] := random(20); {массив осадков}
    b[i] := random(20) — 10; {массив температур}
  end;

  {вывод исходных массивов}
  for i := 1 to n do
    write(a[i], ‘ ‘);
  writeln;
  for i := 1 to n do
    write(b[i], ‘ ‘);

  sd := 0;
  sc := 0;
  for i := 1 to n do
    if b[i] > 0 then sd := sd + a[i]
    else sc := sc + a[i];

  writeln;
  writeln(‘количество в виде дождя = ‘, sd, ‘ количество в виде снега = ‘, sc);
end.

Ответ

Программа определяет сумму осадков, выпавших при положительной температуре, и сумму осадков, выпавших при температуре $$0^\circ C$$ и ниже.