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

Решение в прикрепленном файле

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.