В компьютер вводится значения средней дневной температуры за неделю.На экран необходимо

В компьютер вводится значения средней дневной температуры за неделю.На экран нужно вывести среднюю температуру за неделю,и,если был хоть один денек с отрицательной температурой,вывести статус "Были заморозки" (нужные значения вводится с клавиатуры). Нужно составить программку в Паскале и нарисовать метод.

Задать свой вопрос
2 ответа
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]lt;0 then k:=1;  s:=s+a[i]; end; Writeln('Средняя температура за неделю составила  ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.
Решение в прикрепленном файле
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт