Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.