SaveText.Ru

Без имени
  1. program ch;
  2. var a:array[1..6] of integer;
  3.  i:integer;
  4.  begin
  5.  Randomize;
  6.  write('Изначальный массив: ');
  7.  for i:=1 to 6 do begin
  8.  a[i]:=random(100);
  9.  write(a[i],' ')
  10.  end;

Share with your friends:

Print