Заполнение случайными числами на 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.



Просмотров: 1301
10.02.2015, 10:40 -

Категория: Статьи » Программирование » Pascal