« Паскаль » информатика 11 кл Создать программу, которая заполняет массив K [8] случайными числами из целочисленного диапазона [0; 20]

Предыдущий
вопрос Следующий
вопрос

program random_array;

var
K: array[1..8] of integer;
i: integer;

begin
randomize;

for i := 1 to 8 do
begin
K[i] := random(21);
writeln('K[', i, '] = ', K[i]);
end;

end.