Помогите решить задачу)

Сформировать массив из 8 случайных вещественных чисел, принадлежащих промежутку {20; 21) и вывести элементы этого массива в столбик в обратном порядке.

Question

Информатика

Манефа

20 сентября, 02:53

Помогите решить задачу)

Сформировать массив из 8 случайных вещественных чисел, принадлежащих промежутку {20; 21) и вывести элементы этого массива в столбик в обратном порядке.

+3

Ответы (1)

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

Толяна · Answer 1

Program programma;

Uses crt;

var i: integer;

a:array[1 ... 10] of real;

begin clrscr;

randomize;

for i:=1 to 8 do

begin

a[i] : = random * 1+20;

write (a[i]:7:3) ;

end;

writeln;

writeln;

for i:=8 downto 1 do

writeln (a[i]:7:3) ;

readln;

end.