Меню сайта

Задача №45

Заполнить массив случайными числами из отрезка (А,В).

uses crt-

var a,b,i:integer-

aa : array [1..10]of integer-

begin

clrscr-

writeln(‘Введите отрезок [a,b] — (a и b через Enter)’)-

read(a)-

read(b)-

FOR i := 1 TO 10 do

begin

aa[i] := round(a +Random(b-a))-

end-

FOR i := 1 TO 10 do

begin

writeln(aa[i])

end-

end.

Категория: Массивы | Дата: 12.12.12

Меню раздела
Блок