Помогите, пожалуйста, с информатикой! Язык программирования: Паскаль.
1. Найдите максимальную температуру первой декады ноября.
2. Найдите среднюю зарплату 20-ти сотрудников офиса.
Заранее спасибо!
Ответы
Ответ дал:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад