Предмет: Информатика,
автор: batoriyulia
Помогите, пожалуйста, с информатикой! Язык программирования: Паскаль.
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.
Похожие вопросы
Предмет: Английский язык,
автор: milevskaanatala35
Предмет: Математика,
автор: Tgggghjgxsdthjkkfdhj
Предмет: Українська мова,
автор: pancukila95
Предмет: Химия,
автор: muxit82496gmail
Предмет: Алгебра,
автор: XBOST1478