Question

Написать программу, которая заполняет массив случайными целыми числами от 0 до 15, и затем выводит его на экран в одну строку. В массиве 6 чисел. Нужно до завтра написать, заранее спасибо!

Answer 1

Ответ:

var a:array [1..6] of Integer;

i,s:Integer;

begin

write ('Массив ');

for i:=1 to 6 do

begin

a[i]:=random(16);

write (a[i]:3)

end

end.

Answer 2

program fpro;

var

a : array[0..15] of integer;

i : integer;

begin

randomize;

for i :=0 to 15 do

begin

a[i] := random(1,20);

if (a[i] > 5) and (a[i] < 15) then writeln(a[i]);

end;

end.