Всем привет оч прошу помоч найти ошибку

[Unknowns]

Program p1;
Uses Crt;
var
m:array[1..100]of integer;
n,i,sum,su:integer;
sr:real;
begin
clrscr;
writeln('Введите кол-во людей');
readln(n);
clrscr;
writeln('Сколько кому лет');
for i:=1 to n do begin
m[i]:=random[40];
sum:=sum+m[i];
if m[i]<20 then su:=su+m[i];
write(m[i]:3);
end;
writeln;
sr:=sum/n;
writeln('общий возраст - '+sr:3:3);
sr:=su/n*100;
writeln('% тех, кто младше 20 - '+sr:3:3);
readln;
end.


в проге в конце влазит ошибка помогите оч срочно нужно

Comments

[kugelschreiber]

А сообщить, что за ошибка и когда она вылазит, при компиляции или при выполнении, конечно, невозможно

[Malabary Takemura]

m:array [1..100] of integer; {может так надо?( с пробелами)}
{или}
writeln('общий возраст - '+sr:3:3); => writeln('общий возраст - ',sr:3:3); {Вмето плюса запятая нужна!!!}

[kugelschreiber]

sr:3:3

А что это такое?

[-=TurboRufus=-]

Еще меня смущает, что sum и su не проинициализированы... хотя, я так давно общалась с паскалем, что не помню, может, там выделенные переменные обязательно нулем инициализируются и у них все хорошо. Но все равно бы перестраховалась от абракадабры.

[Unknowns]

проверил работает но неправильно вычисляет % людей младше 20 лет, как правильно то сделать...

[-=TurboRufus=-]

перед всеми действиями задайте sum := 0; и su := 0;
может помочь

[ArcheryMask]

kugelschreiber формат вывода числа. первая цифра - общая длина числа, вторая - после запятой
конечно 3:3 не совсем логично но пусть с этим автор разбирается

[rid.er]

человек не компилятор и было бы неплохо кроме программы еще и условие задачи написать, без дара ясновидения сложно понять как оно должно "считать правильно"?)

Нужно: Обнулить sum,su; перед random включить randomize; в random нужны круглые скобки; при выводу вместо + нужно '; вроде все...