Заполнение случайными числами на Pascal
Заполнение случайными числами...
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to N do
write(a[i],' ');
end.
10.02.2015, 10:40 -
Категория: Статьи » Программирование » Pascal
