Основы программирования на языке Turbo Pascal. Беляева И.В. - 84 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

84
repeat
write('Введите n:');
readln(n);
until (n >= 1) and (n <= maxN); {Из цикла выйти возможно
только тогда, когда 1<=N<=maxN}
{1.2 – ввод элементов массива поодиночке}
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
end;
{2 – поиск индекса минимального элемента}
indMin := 1;
for i := 2 to n do
if A[i] < A[indMin] then IndMin := i;
{3 – удаление элемента массива с индексом indMin}
for i := indMin to n-1 do
A[i] := A[i+1];
dec(n);
{4 – вывод массива}
writeln;
for i := 1 to n do
write(A[i]:3);
writeln;
end. {Конец программы WithoutProcedureExample}
Теперь продемонстрируем на этой же задаче решение с
использованием подпрограмм.
Напрашивается мысль, а не разбить ли нашу программу на
подпрограммы таким образом: 1-я подпрограмма – ввод массива,

Страницы