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

@Alexandro333333 · Регистрация: 26.11.2018

Студворк — интернет-сервис помощи студентам

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

@ZX Spectrum-128 · 20.12.2018, 19:18

Pascal

const
  n = 12;
 
var
  x: array [1..n] of real;
  i, k: integer;
  sr: real;
 
begin
  sr := 0;
  writeln('Возраст рабочих: ');
  for i := 1 to n do 
  begin
    x[i] := random(41) + 20;
    write(x[i]:8:1);
    sr := sr + x[i]; 
  end;
  writeln;
  sr := sr / n;
  writeln('Средний возраст: ', sr);
  writeln('Порядковые номера членов бригады, возраст которых превышает средний: ');
  for i := 1 to n do 
    if x[i] > sr then 
      write(i:4); 
end.

@Alexandro333333 0 / 0 / 0 Регистрация: 26.11.2018 Сообщений: 8
		1
	Определить средний возраст и вывести порядковые номера членов бригады, возраст которых превышает средний 20.12.2018, 19:08. Показов 2578. Ответов 1 Метки нет (Все метки) Имеется список 12 членов бригады с указанием их возраста. Определить средний возраст и вывести порядковые номера членов бригады, возраст которых превышает средний. 0

	20.12.2018, 19:18

Опции темы