11. Информация о количестве осадков, выпавших в течение месяца, и температура воздуха...

Question

11. Информация о количестве осадков, выпавших в течение месяца, и температура воздуха задана в виде массивов. Определите, какое количество осадков выпало в виде дождя, а какое в виде снега. Считать, что идет дождь, если температура больше нуля.ПАСКАЛЬ)

Answer 1

var
t,o:array [1..30] of integer;
d,s,i:integer;
begin
randomize;
writeln ('Kol-vo osadkov: ');
for i:=1 to 30 do begin
o[i]:=random(20);
write (o[i],' ,');
if i=15 then writeln;
end;
writeln;
writeln ('Temperatura vozduxa: ');
for i:=1 to 30 do begin
t[i]:=random(26)-15;
if (t[i]>0) and (o[i]<>0) then d:=d+o[i] else
if (t[i]<0) and (o[i]<>0) then s:=s+o[i];
write (t[i],',');
if i=15 then writeln;
end;
writeln;
writeln ('Kol-vo osadkov v vide snega: ',s);
writeln ('Kol-vo osadkov v vide dozhdya: ',d);
readln;
end.