найти среднею температуру воздуха за неделю ( Паскаль) программу напишите
5-9 класс
|
var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n);
k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.
Другие вопросы из категории
1) 3018 2) 6508 3) 4078 4) 7778
ПЛИЗ ОЧЕНЬ СРОЧНО НАДО
1 2 3 4 5 6
1 2 3 4 5 6 7
5)волга,амур,иртыш 6)луара,эльба,висла 7)принтер,монитор,клавиатура 8)клавиатура,сканер,мышь 9)берёза,жасмин,ромашка 10)яблоня,груша,вишня
Читайте также
определите сколько дней в декабре температура была выше средней.
Написать программу для след задачи:
Найти среднюю температуру, если кол-во n дней, когда t >=5.
Вывести ДА или НЕТ
градусов.Заполнение массива осуществить с помощью клавиатуры.
А<В<С.
На паскале программу напишите)
для каждого фигуриста, сумму балов для каждого фигуриста. Массив заполняется рандомом (желательно небольшие числа), кол-во фигуристов вводится с клавиатуры + найти победителя (максимальный средний балл)