Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 15.06.2013
Сообщений: 15
1

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

15.06.2013, 00:43. Просмотров 1330. Ответов 2
Метки нет (Все метки)


В массиве хранятся сведения о количеств осадков, выпавших за каждый день августа. Определить среднее количество осадков, выпавших в дни, когда шел дождь.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2013, 00:43
Ответы с готовыми решениями:

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

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

Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в в
Спасайте , на языке Паскаль, завтро экзамен =(( Добавлено через 1 минуту БУДУ ОЧЕНЬ БЛАГОДАРЕН...

Напечатать дни, когда было превышено среднемесячное количество осадков
Известны сведения о количестве осадков (в мм) за каждый день марта текущего года. Напечатать дни,...

2
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
15.06.2013, 18:51 2
Лучший ответ Сообщение было отмечено Galiya28 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.
1
1 / 1 / 0
Регистрация: 15.06.2013
Сообщений: 15
15.06.2013, 18:58  [ТС] 3
Kodzaev, спасибо огромное... теперь у меня все программы есть... еще раз ОГРОМНОЕ СПАСИБО
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2013, 18:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
11.57. Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков,...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков,...

Известны данные о количестве осадков, выпавших за каждый месяц года, Найти общее число осадков, выпавших в марте, июне, сентябре и декабре.
Известны данные о количестве осадков, выпавших за каждый месяц года, Найти общее число осадков,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.