Написать программу, которая вычисляет среднюю температуру воздуха за неделю.
10-11 класс
|
Вроде бы так
program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
end.
Другие вопросы из категории
вводит текст, признаком конца которого является точка. Вывести на экран
весь исходный текст, заменив в нем
все заглавные буквы на прописные . (малые на большие) (не использовать string)
поровну, по 4 литра , пользуясь ещё одним, 2- литровым бидоном.Как это сделать ? Составьте решение ввиде таблицы.
Читайте также
Написать программу, которая вычисляет среднее арифметическое элементов с четными индексами и среднее арифметическое с нечетными индексами.
Ввод: Число N и элементы массива вводятся из Файла.
Вывод: В файл должны быть введены 2 вычисленных значения
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Нужно написать программу, которая высчитывает среднею температуру, максимальную и минимальную температуру за месяц.
Вот, пытался написать сам, не получается:
program PoGoda;
uses crt;
var
x, n, t : integer;
max, min, imax, imin : integer;
const z=5;
begin
for x := 0 to z do;
x :=1;
while (x < z+1)do
begin {Создаем массив}
while (x > z) do
writeln;
write ('Какая температура была в ');
write ( x);
write (' день? ');
readln (t);
inc (x);
end;
max:= t[x];
for x:=0 to z do
if max begin
max:=t;
imax:=x
end
else
if min>t then
begin
min:=t;
imin:=x
end;
writeln;
writeln('Максимальное значение ',max);
writeln('В какой день месяца было максимальное значение ',imax);
writeln('Минимальное значение ',min);
writeln('В какой день месяца было минимальное значение ',imin);
readkey;
end.
меньше 52.
2)В результате работы некоторой подпрограммы вычислены значения четырех переменных a, b, c, d. Написать на предложенном в пункте а) языке программирования программу, после работы которой в случае, если сумма положительных значений (среди a, b, c, d) больше 20, значение g равно наибольшему из a, b, c, а в остальных случаях значение g равно значению d. (В программе можно использовать новые переменные.)