Заполнение массива

Ввод элементов массива с клавиатуры

 Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 33. 

 Вход: 

   1 

   2 

   3 

   4 

   5

 Результат: Массив задом наперёд: 5 4 3 2 1 


program inputArray;

const N = 5;

var A: array[1..N] of integer;

    i: integer;

begin

  writeln ( 'Введите элементы массива:' );

  for i:=1 to N do 

       begin

    write('A[',i,']=');

    read(A[i])

          end;

  

  writeln ( 'Массив задом наперёд:' );

  for i:=N downto 1 do

    write(A[i],' ');    

end.

Заполнение массива случайными числами

 Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 34. 

 Вход: 

   нет

 Результат: <5 случайных чисел от 20 до 100>


program randArray;

const N = 5;

var A: array[1..N] of integer;

    i: integer;

begin

  for i:=1 to N do 

       begin

    A[i]:= 20 + random(81);

  end;  

  writeln ( 'Массив:' );

  for i:=1 to N do

    write(A[i],' ');    

end.


Заполнение и вывод массива

 Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 32. 

 Вход: 

   нет

 Результат: 1 4 9 16 25 


program filArray;

const N = 5;

var A: array[1..N] of integer;

    i: integer;

begin

  for i:=1 to N do

    A[i]:= i*i;

  for i:=1 to N do

    write(A[i],' ');    

end.