Question

Помогите, пожалуйста, с информатикой! Язык программирования: Паскаль.

1. Найдите максимальную температуру первой декады ноября.
2. Найдите среднюю зарплату 20-ти сотрудников офиса.

Заранее спасибо!

Answer 1

Объяснение:

Program z_1;

var x,i,max:integer;

begin

max:=-10;

for i:=1 to 10 do

begin

read(x);

if x>max then max:=x;

end;

writeln(max);

end.

Program z_2;

var i:integer;

x,s:real;

begin

for i:=1 to 20 do

begin

read (x);

s:=s+x;

end;

s:=s/20;

writeln (s);

end.