Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Gertrudin

Определить среднюю температуру тех дней, которые предшествуют первому из самых холодных дней в декабре

27.06.2013, 00:04. Показов 1727. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Товарищи помогите пожалуйста.
Пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течении декабря месяца. Определить среднюю температуру тех дней, которые предшествуют первому из самых холодных дней в декабре.

Добавлено через 8 часов 8 минут
В общем спасибо за помощь появилось решение, ну может кому пригодиться:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var k,i,n,S,Sr: integer;
    a: array [1..31] of integer;
    b:real;
begin clrscr;
randomize;
writeln('temperatura decabrya');
for i:=1 to 31 do
    begin
    a[i]:=random(35)-30;
    write(a[i],' ');
    end;
S:=a[1];
k:=1;
writeln;
for i:=1 to 31 do
    begin
    if a[i]<S then
      begin
        S:=a[i];
        k:=i;
      end;
    end;
    writeln ('Samiy holodny den ',k,'-dekabrya. Temperatura na ulizce',S,' gradusov');
Sr:=0;
for i:=1 to k-1 do
    begin
       Sr:=a[i]+Sr;
    end;
 
writeln('Srednya temperatura ravna');
b:=Sr/(k-1);
Writeln (b:2:3);
end.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.06.2013, 00:04
Ответы с готовыми решениями:

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

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

Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней
Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней ранее спасибо)

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.06.2013, 00:04
Помогаю со студенческими работами здесь

Определить даты двух самых холодных дней (не используя два прохода по массиву)
В массиве хранится информация о среднедневной температуре за каждый день февраля. Определить даты двух самых холодных дней. Не могу понять...

Определить среднюю температуру месяца и количество дней без осадков («ясно»)
Решение задач с использованием структурированных типов данных Помогите, пожалуйста. Беда с Паскалем.. В текстовом файле заданы...

Вывести среднюю температуру за 30 дней каждого города
Всем доброго времени суток! Помогите решить задачку. В Excel сделать таблицу состоящую из 6 столбцов и 34 строк. Во 2,3,4,5 столбце...

Найти среднюю температуру и количество теплых дней
привет) помогите пожалуйста с задачей в С#. известны значения ежедневной температуры воздуха в марте. найти среднюю температуру и...

Написать программу, которая вычисляет среднюю температуру воздуха за декаду (10 дней)
Написать программу, которая вычисляет среднюю температуру воздуха за декаду (10 дней).


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru