Задача с применением подпрограмм2, возможно вы мне поможите... Опции

[z1ng]

Рост студентов 3-х групп, состоящих из 15,12,18 человек, размещен в 3 массивах. Требуется определить средний рост студентов каждой группы, а также сколько студентов в 3-х группах имеет рост выше 180 см. Определение среднего роста и количества студентов одной группы с ростом выше 180 см осуществлять в подпрограмме.
Не получается: посчитать кол-во студентов во всех 3-х группах....
..................................
процендура ввода...
................................

function ROST (x:vect; n:int):real;
var k:int; SR:real; i:int;
begin S:=0; k:=0;
for i:=1 to n do begin
S:=S+x[i];
if x[i]>180 then k:=k+1;
end;
SR:=S/n;
ROST:=SR;
end;

Как сделать, чтобы в п/п после ввода каждого массива осуществлялся подсчет студентов, у которых рост выше 180 и чтобы после ввода всех массивов, посчитать эту сумму?

Блок-схема алгоритма основной программы

Сообщение отредактировано: z1ng - 28.04.2009 13:12

[Ozzя]

function ROST (x:vect; n:int; var rost_bolshe_180: Integer):real;
var 
  k:int; SR:real; i:int;
begin 
  S:=0; k:=0;
  for i:=1 to n do 
     begin
        S:=S+x[i];
        if x[i]>180 then 
        k:=k+1;
     end;
  SR:=S/n;
  rost_bolshe_180:=k;
  ROST:=SR;
end;

[z1ng]

...вот спасибо, дорогой...до чего дошел....что переменную не смог ввести)
возможно мне еще будет нужна твоя помощь...

Сообщение отредактировано: z1ng - 28.04.2009 13:26