Что не так? (процедура обязательна) procedure random(k:integer); var a:array[1..100] of...

Question

Что не так? (процедура обязательна)

procedure random(k:integer);
var a:array[1..100] of integer;
var
l:integer;
begin
for l:=1 to k do begin
a[l]:=random(100);
writeln(a[l]);
end;
end;

var
v:integer;
begin
write('Сколько будет чисел?: ');
readln(v);
random;
end.

Comments

когда обьявляете процедуру, надо в скобках вводить параметр

---

random(параметр);

Answer 1

Тут много что не так.
Во-первых, внутри описания процедуры random есть вызов функции random(100) - это неверно, поэтому имя процедуры random следует изменить, например, на MyRandom.
Во-вторых, согласно объявлению, процедура MyRandom должна вызываться с параметром типа integer, а у Вас она вызывается без параметра вообще.
Ну и в-третьих, я не понял, зачем в процедуре массив, когда достаточно было объявить простую переменную.

Comments

Огромное спасибо!

Answer 2

В данной программе при обьявлении процедуры надо указать параметр k;
random(параметр);
судя по программе должно быть так:
random(v);

Comments

Ошибка в строке: a[l]:=random(100);

---

Program3.pas(7) : Несколько подпрограмм могут быть вызваны

---

random(v) не помогло