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

@Galiya28 · Регистрация: 15.06.2013

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

Kodzaev · 15.06.2013, 18:51

Pascal

Var
  x: Array [1..31] of Integer;
  i,k: Byte;
  s: Integer;
BEGIN
Writeln('Введите количество осадков: ');
For i:=1 to 31 do
begin
  Write(i,' день: ');
  Readln(x[i]);
  If x[i]>0 Then
  begin
    s:=s+x[i];
    k:=k+1;
  end;
end;
Writeln('Ср. кол-во осадков, выпавших в дни, когда шел дождь = ',s/k:2:2);
Readln
END.

@Galiya28 · 15.06.2013, 18:58 **[ТС]**

Kodzaev, спасибо огромное... теперь у меня все программы есть... еще раз ОГРОМНОЕ СПАСИБО

@Galiya28 1 / 1 / 0 Регистрация: 15.06.2013 Сообщений: 15
		1
	Определить среднее количество осадков, выпавших в дни, когда шел дождь 15.06.2013, 00:43. Просмотров 1330. Ответов 2 Метки нет (Все метки) В массиве хранятся сведения о количеств осадков, выпавших за каждый день августа. Определить среднее количество осадков, выпавших в дни, когда шел дождь. 0

@Galiya28 1 / 1 / 0 Регистрация: 15.06.2013 Сообщений: 15
	15.06.2013, 18:58 [ТС]	3
	Kodzaev, спасибо огромное... теперь у меня все программы есть... еще раз ОГРОМНОЕ СПАСИБО 0

Опции темы

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

Решение