Please enable JavaScript.

Coggle requires JavaScript to display documents.

Одномерные массивы (Способ заполнения (С помощью генератора случайных…

- - - - Program mas_5;
      - Const N=10;
      - Var m:array [1..N] of integer;
      - k:integer;
      - Begin
      - For k:=1 to N do m[k]:=random(-2)-12;
      - Writeln ('массив');
      - for k:=1 to N do write (m[k],' ');
      - Writeln;
      - end.
  - - - Program mas;
      - Const N=21;
      - Var m:array [2..N] of integer;
      - k:integer;
      - Begin
      - For k:=2 to N do readln (m[k]);
      - end.