Question

Имеется список 15 членов бригады с указанием их возраста. Определить средний возраст членов бригады и порядковые номера работников, чей возраст больше 50 лет.

Answer 1

Var
mas:array [1..15] of integer;
i,b:integer;
ar:real;
begin
b:=0;
writeln('Введите возраст рабочих');
for i:=1 to 15 do begin
read(mas[i]);
b:=b+mas[i];
end;
ar:=b/5;
writeln('Средний возраст = ', ar);
writeln('Порядковый номер рабочих,чей возраст > 50');
for i:=1 to 15 do begin
if mas[i]>50 then
write(i,' ');
end;
end.