Написать программу заполнения одномерного массива случайным образом, используя процедуру

//const n=10;
type 
arr1=array[1..10] of integer;
var
a:arr1;

procedure mas_vvod(k:integer; var b:arr1);
  var i:integer;
    begin
      writeln('заполнение массива слуайными числами');
      randomize;
      k:=10;
      for i:=1 to k do
       b[i]:=random (50);  
    end;

procedure mas_out (k:integer; var b: arr1);
    var i: integer;
    begin
        write ('Вывод массива: ');
        k:=10;
        for i := 1 to k do
            write (b[i]:4);
        writeln;
    end;
 begin
 
 mas_vvod(10,a);
 mas_out (10,a);
 end.

//const n=10;

type

arr1=array[1..10] of integer;

var

a:arr1;

procedure mas_vvod(k:integer; var b:arr1);

var i:integer;

begin

writeln('заполнение массива слуайными числами');

randomize;

k:=10;

for i:=1 to k do

b[i]:=random (50);

end;

procedure mas_out (k:integer; var b: arr1);

var i: integer;

begin

write ('Вывод массива: ');

k:=10;

for i := 1 to k do

write (b[i]:4);

writeln;

end;

begin

mas_vvod(10,a);

mas_out (10,a);

end.

Написать программу заполнения одномерного массива случайным образом, используя процедуру

Похожие записи:

Добавить комментарий Отменить ответ