Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду

@Nurlan_300 · Регистрация: 21.10.2013

Author24 — интернет-сервис помощи студентам

Помогите плиз написать программу на массив)

Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду.

@Дарья_Дерр · 12.03.2014, 22:14

Pascal

randomize;
writeln('Количество осадков');
for i:=1 to n do
 begin
  k:=random(2);
  if k=0 then o[i]:=0
  else o[i]:=5+random(20);
  write(o[i]:4);
 end;
writeln;
writeln('Температура');
for i:=1 to n do
 begin
  t[i]:=-5+random(11);
  write(t[i]:4)
 end;
writeln;
kd:=0;
ks:=0;
for i:=1 to n do
if o[i]<>0 then
 begin
  if t[i]>0 then kd:=kd+o[i]
  else ks:=ks+o[i];
 end;

@Nurlan_300 1 / 1 / 0 Регистрация: 21.10.2013 Сообщений: 51
		1
	Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду 12.03.2014, 19:40. Показов 1543. Ответов 1 Метки нет (Все метки) Помогите плиз написать программу на массив) Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду. 0

	12.03.2014, 22:14

Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду

Решение