Question

Запишите программу, в которой осуществляется: заполнение случайным образом целочисленного массива f, состоящего из 20 элементов, значения которых изменяются в диапазоне от 0 до 50; вывод массива f на экран. Выполнить программу на компьютере в среде программирования PascalABC.NET.

Answer 1

Ответ:

program A;

var

   f: array[0..50] of integer;

   i: integer;

begin

   for i:=1 to 50 do

       f[i]:=random(50);

       

   for i:=1 to 50 do

       write(f[i], ' ');

end.