Не получается: посчитать кол-во студентов во всех 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 -