Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 39 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

38
после удаления на его месте окажется
i+1-й элемент, который и нужно прове-
рять на следующей итерации цикла.
Остается вывести результирующий массив на экран.
writeln('Результат обработки:');
for i:=1 to n do
write(a[i]:4);
readln;
{$R-} {Выключаем контроль значений индексов}
end.
Ниже представлен полный текст программы.
program lab5_var100;
Uses crt;
type arr=array[1..15] of integer;
var a:arr; {массив}
i,j,n: byte; {индексы, длина массива}
i_max: byte; {индекс максимального элемента массива}
max:integer; {максимальный элемент}
begin
writeln;
writeln(’ Автор – Иванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант № 100’);
writeln(’ Дан одномерный массив целых чисел.’);
writeln(’ Удалить все отрицательные элементы, расположенные
справа от максимального ’);
writeln;
{$R+} {Включение контроля значений индексов}
clrscr; {Очистка экрана}
n:=15;
randomize;
writeln('Исходный массив:');
for i:=1 to n do {генерация элементов массива}
begin
a[i]:=-20+random(41); {в диапазоне [-20; 20]}
write(a[i]:4);
end;
writeln;
max:=a[1];
i_max:=1;
for i:=2 to n do {поиск максимального элемента массива}
if a[i]>max then
begin
max:=a[i];
i_max:=i;

Страницы