Помогите, пожалуйста, с информатикой! Язык программирования: Паскаль.
1. Найдите максимальную температуру первой декады ноября.
2. Найдите среднюю зарплату 20-ти сотрудников офиса.
Заранее спасибо!
1. Найдите максимальную температуру первой декады ноября.
2. Найдите среднюю зарплату 20-ти сотрудников офиса.
Заранее спасибо!
More Questions From This User See All
Answers & Comments
Объяснение:
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.