Задать массив из целых чисел в диапазоне от 0 до 10 размерностью 8

1

Ответы и объяснения

2014-02-27T10:14:11+00:00
Uses crt;
const n=8;
var a: array[1..n] of integer;
 i : integer;
begin randomize; clrscr;
for i:=1 to n do
 begin
 a[i]:=random(10);
write(a[i]:3, ', ');
end;
readln;
end.