В компьютер вводится значения средней дневной температуры за неделю.На экран необходимо вывести среднюю температуру за неделю,и,если был хоть один день с отрицательной температурой,вывести статус "Были заморозки" (необходимые з...
В компьютер вводится значения средней дневной температуры за неделю.На экран необходимо вывести среднюю температуру за неделю,и,если был хоть один день с отрицательной температурой,вывести статус "Были заморозки" (необходимые значения вводится с клавиатуры). Нужно составить программу в Паскале и нарисовать алгоритм.
Ответ(ы) на вопрос:
Решение в прикрепленном файле
var i,k:integer; s:real; a:array[1..7] of real;beginclrscr;k:=0; s:=0;writeln('Введите среднюю дневную температуру с понедельника по воскресенье:');for i:=1 to 7 do begin Write(i,'-я:'); readln(a[i]); if a[i]<0 then k:=1; s:=s+a[i]; end; Writeln('Средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.
Не нашли ответ?
Похожие вопросы