Вопрос по информатике:
Имеется список 15 членов бригады с указанием их возраста. Определить средний возраст членов бригады и порядковые номера работников, чей возраст больше 50 лет.
Пожаловаться
- 14.05.2018 16:45
- Информатика
- remove_red_eye 15387
- thumb_up 30
Ответы и объяснения 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.
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.
Пожаловаться
- 15.05.2018 08:26
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы