0 / 0 / 0
Регистрация: 13.01.2018
Сообщений: 1
1

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

13.01.2018, 12:41. Показов 2134. Ответов 2
Метки нет (Все метки)

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

Дан список месяцев, дней по месяцам и количество рабочих дней: январь - 30 - 24, февраль - 28 - 22, март - 31 - 25.
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по...

Множества.Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не високосного года.
Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не...

Дан список месяцев, дней по месяцам и количество рабочих дней: январь - 30 - 24, февраль - 28 - 22, март - 31 - 25. Составить программу, которая по пе
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по...

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

2
11 / 11 / 8
Регистрация: 06.01.2018
Сообщений: 134
14.01.2018, 00:46 2
Лучший ответ Сообщение было отмечено inform2 как решение

Решение

Как-то так получилось:
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
program ColdWArmDay;
const N = 10000;
type Warm=array [1..N] of Integer;
type Cold=array [1..N] of Integer;
var i, j, x, y1, y2:Integer;
    a1:Warm;
    a2:Cold;
begin
        a1[1]:=0;
        a2[1]:=0;
        for i:=1 to 7 do
        begin
                readln(x);
                if x>0 then //за тёплые принимаем дни с температурой больше 0
                begin
                        a1[i]:=i;
                        inc(y1);
                end
                else
                begin
                        a2[i]:=i;
                        inc(y2);
                end;
        end;
        writeln('Тёплые дни:');
        for j:=1 to 7 do
                write(a1[j], ' ');
        writeln('Их количество: ', y1);
        writeln;
        writeln('Холодные дни:');
        for j:=1 to 7 do
                write(a2[j], ' ');
        writeln('Их количество: ', y2);
        readln;
end.
0
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,646
14.01.2018, 02:58 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
const n=7;
var
  a,b,c,i:integer;
begin
  write('введите температуру за ',n,' дней:');
  for i:=1 to n do begin
    read(a);
    if a>0 then b:=b+1 else c:=c+1;
  end;
  writeln(' было ',b,' теплых и ',c,' холодных дней');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2018, 02:58
Помогаю со студенческими работами здесь

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

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

Пользователь вводит месяц - компьютер показывает количество дней в этом месяце
Надо сделать программу: пользователь с клавиатуры вводит по русски название месяца, а компьютер...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru