Составте программу, которая формирует массив из 12 случайных целых чисел принадлежещих промежутку - 5; 5 и выводит эти числа в столбец (через Паскаль)

Question

Информатика

Демид

29 ноября, 05:47

Составте программу, которая формирует массив из 12 случайных целых чисел принадлежещих промежутку - 5; 5 и выводит эти числа в столбец (через Паскаль)

+2

Ответы (2)

Знаете ответ на вопрос?

Никон · Answer 1

Program Program1;

Var

a:array [1 ... 12] of integer;

i:integer;

begin

randomize;

for i:=1 to 12 do

begin

a[i]:=random (11) - 5;

writeln ('a[', i,']=', a[i]) ;

end;

end.

Иванюша · Answer 2

var a: array[1 ... 12] of real;

i: integer;

begin

randomize;

for i:=1 to 12 do a[i]:=random (11) - 5;

for i:=1 to 12 do writeln (a[i]) ;

readln;

end.