Первый семестр / Лабалаторная работа №4 / lab4

program lab4;

const N=20; //N - размер массивов

var
A: array [1..N] of integer; //Начальный массив
B: array [1..N] of integer; //итоговый массив
i,k,c,d:integer; //i,k - переменные-счетчики. c,d - переменные диапазона

begin
randomize;

//Ввод ограничений для нового вектора
write ('Введите значения c и d для вектора B. Условие: c<=B<=d (целые числа). Введите C->'); readln(c);
write ('Введите d -> '); readln (d);
if (c>d) then //Если диапазон указан неправильно, программа поменяет значения местами
begin
i:=c; c:=d; d:=i;
writeln ('c>d, значения поменяны местами');
end;

//Заполнение массива значениями и вывод их на экран
k:=0;
for i:=1 to N do
begin
A[i]:=5000-random(10000); // рандомизация вводимых значений массива с масштабированием

//Вывод старого массива с табуляцией
write(A[i],#9);
if ((i mod 10)=0) then writeln('');
//Заполнение нового массива
if ((A[i]>=c) AND (A[i]<=d)) then
begin
k:=k+1; B[k]:=A[i];
end;
end;

//Вывод нового массива
writeln('');
Writeln('Вектор, составленный из элементов, удолетворяющих значению:');
if (k=0) then writeln ('Значений. удолетворяющих условию, нет.')
else
begin
for i:=1 to k do
begin
write(B[i],#9);
if ((i mod 10)=0) then writeln('');
end;
end;

end.