Задать вопрос
6 марта, 02:09

С клавиатуры вводится температура 7 дней недели. Распечатать в виде: один день недели-температура. Найти среднюю температуру недели, среднюю положительную и среднюю отрицательную. Использовать random от - 3 до 3

+2
Ответы (1)
  1. 6 марта, 06:05
    0
    Если вводить с клавиатуры, то для чего использовать random?

    В программе ввод с клавиатуры отключен.

    const n=7;

    var t:array[1 ... n] of integer;

    sr, srp, sro:real;

    i, kp, ko:integer;

    begin

    Randomize;

    for i:=1 to n do

    begin

    / / readln (t[i]) ; / / ввод с клавиатуры

    t[i]:=random (7) - 3;

    writeln (i,' - ', t[i]:2) ;

    end;

    sr:=0; srp:=0; sro:=0;

    kp:=0; ko:=0;

    for i:=1 to n do

    begin

    sr:=sr+t[i];

    if t[i]>0 then begin srp:=srp+t[i]; kp:=kp+1; end;

    if t[i]<0 then begin sro:=sro+t[i]; ko:=ko+1; end;

    end;

    sr:=sr/n; srp:=srp/kp; sro:=sro/ko; writeln ('Средняя температура недели = ', sr:5:2) ;

    writeln ('Средняя положительная = ', srp:5:2) ;

    writeln ('Средняя отрицательная = ', sro:5:2) ;

    end.

    Пример:

    1 - - 3

    2 - 1

    3 - - 2

    4 - 2

    5 - 2

    6 - - 3

    7 - 0

    Средняя температура недели = - 0.43

    Средняя положительная = 1.67

    Средняя отрицательная = - 2.67
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры вводится температура 7 дней недели. Распечатать в виде: один день недели-температура. Найти среднюю температуру недели, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы