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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

3. Напишите программу. Информация о количестве осадков, выпадавших в течение месяца, и о температуре воздуха задана в виде массивов. Определите, какое количество осадков выпало в виде дождя, какое — в виде снега. (Считайте, что идёт дождь, если температура воздуха больше О °C.)

Запишите текст программы.

program s5_v2_3;

const

n = 20;

var

a, b: array[1..n] of integer;

i, sd, sc: integer;

begin

writeln(taskВвод массивовtask);

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], task task);

writeln;

for i := 1 to n do

write(b[i], task task);

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(taskколичество в виде дождя =task, sd, task количество в виде снега=task, sc);

end.