Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 5 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

5
образом. Описать максимальную длину массива (например , N=100). Вводом опре-
делить нужную длину массива (m), не превосходящую максимальную длину. За-
действовать в программе m зарезервированных элементов массива.
Напишем программу, заполняющую массив случайными числами и выво-
дящую элементы массива на экран . Размер массива, границы варьирования
случайных значений вводятся с клавиатуры.
Program Vector;
Uses Crt;
Label 1;
Type mas1=array[1..100] of integer;
Var i,j,n,g1,g2:integer; a:mas1;
Begin
Textbackground(7); Textcolor(blue);Clrscr;
{Ввод длины массива и границ варьирования значений}
1:write('Введите количество элементов одномерного массива(<=100):');
readln(n);
if (n<1) or (n>100) then goto 1;
write('Введите нижнюю границу диапазона:'); readln(g1);
write('Введите верхнюю границу диапазона:');readln(g2);
{Генерация одномерного массива}
randomize;
for i:=1 to n do a[i]:=round(random(abs(g2-g1)))+g1;
writeln;
{Вывод элементов массива по 10 элементов в строке }
writeln('Сгенерированный вектор:');
for i:=1 to n do
begin
write(a[i]:7,' ');
if i mod 10 = 0 then writeln
end;

Страницы