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

UptoLike

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

35
начало
i от 2 до n шаг 1
max=a
i
; i_max=i
max=a
1
; i_max=1
a
i
>max
да
нет
i<= n
i = i_max+1
a
i
<0
да
нет
j
от i до n-1 шаг
n=n-1
a
j
= a
j+1
i от 1 до n шаг 1
a
i
= случ. число
Вывод a
i
да
нет
i от 1 до n шаг 1
Вывод a
i
конец
Рис. 5.1. Блок-схема алгоритма удаления из массива отрицательных элементов,
расположенных справа от максимального элемента массива
Генерация случайным образом
элементов массива
и вывод их на экран
Нахождение максимального элемента
Вывод
результирующего
массив
а
i=i+1;
Удаление
отрицательных
элементов
справа от
максимального
Информационный
блок
Далее описываем основное тело программы. Как отмечено на рисунке,
алгоритм состоит из нескольких частей. Первая частьгенерация исходного
массива:
begin
writeln;
writeln(’ АвторИванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант 100’);
writeln(’ Дан одномерный массив целых чисел.’);