Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.11.2015
Сообщений: 5

Определить разницу между наибольшей и наименьшей среднегодовыми температурами

04.01.2016, 05:46. Показов 1968. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Двумерный массив.

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

Помогите пожалуйста написать программу.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.01.2016, 05:46
Ответы с готовыми решениями:

Найти разницу между наименьшей и наибольшей зарплатой
(Задача на файлы). Составить программу решения, используя функции. Сама задача: Задан зарплаты K работников. Найти разницу между...

Написать программу: Определить разность между наибольшей и наименьшей цифрами натурального числа
Напишите код. Определить разность между наибольшей и наименьшей цифрами натурального числа N, представленного в шестиричной системе...

Определить название комплектующих с наибольшей и наименьшей стоимостью
Помогите пожалуйста Определить название комплектующих с наибольшей и наименьшей стоимостью. я ввожу 2 столбца (название и цену)...

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
04.01.2016, 09:44
Лучший ответ Сообщение было отмечено DeAdMaN96 как решение

Решение

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
35
const nmax=15;
var a:array[1..nmax,1..nmax] of real;
    m,n,i,j:byte;
    mn,mx:real;
begin
randomize;
repeat
write('Количество городов от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество лет наблюдений от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Таблица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=5*random;
    write(a[i,j]:5:1);
    if(i=1)and(j=1) then
     begin
      mn:=a[1,1];
      mx:=a[1,1];
     end
    else if a[i,j]>mx then mx:=a[i,j]
    else if a[i,j]<mn then mn:=a[i,j];
   end;
  writeln;
 end;
writeln('Минимальная температура=',mn:0:1);
writeln('Максимальная температура=',mx:0:1);
write('Диапазон температур=',mx-mn:0:1);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.01.2016, 09:44
Помогаю со студенческими работами здесь

Определить, сколько всего занятий пропустят подруги, и вузы, пользующиеся наибольшей и наименьшей популярностью
Одной из отдушин в этой унылой и серой жизни является студенческая весна. Этот праздник проводится почти одновременно (но все-таки в разное...

Задан одномерный массив А из н элементов.Определить разность наибольшей и наименьшей абсолютной величины элемента в массива А
Задан одномерный массив А из н элементов.Определить разность наибольшей и наименьшей абсолютной величины элемента в массива А.Помогите плиз...

Процедуры: определить столбец с наибольшей суммой и заменить на строку с наименьшей суммой элементов
Всем привет, срочно помогите пожалуйста с программой. Я ее написал (вернее не я), но нужно оформить с процедурами. Срочно program...

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

Разница между температурами
Помогите, пожалуйста.Как это можно реализовать? В массиве данных найти год, у которого разница между наибольшей и наименьшей...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой
Programma_Boinc 10.04.2026
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru