Question

Написать программу,которая:а)сформирует массив из 9-ти случайных целых чисел из промежутка(0;5) б)выведет элементы массива в столбик с 4-го по 7-й элемент

Answer 1

Var  i : integer;  a : array [1..9] of integer;begin  randomize;  for i := 1 to 9 do    a[i] := random(4) + 1;  for i := 4 to 7 do    writeln(a[i]);end.

Answer 2

Cls
dim a(9)
for i=1 to 9
  a(i)=int(rnd*5-0)
next i
for i=4 to 7
  print a(i);
next i