Пример 7.1.
Вычислить наибольший элемент Xmax массива Х и его порядковый номер Nmax. Размерность массива. Результат – консольное приложение.
Блок-схема алгоритма
Листинг программы
program prg_7_1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, RusTrans;
const NN=30;
var
i,n,Xmax,Imax: integer;
x:array[1..NN] of integer;
begin
writeln (Rus(‘Введите размер массива n’));
readln(n);
writeln;
randomize;
for i:=1 to n do x[i]:=random(100); // Ввод элементов массива x
Xmax:=x[1]; // Кандидат в Xmax
Imax:=1; // Его номер
for i:=2 to n do if x[i]>Xmax then // Поиск Xmax
begin
Xmax:=x[i];
Imax:=i
end;
writeln;
writeln(Rus(‘Результат’));
writeln(Rus(‘Максимум Xmax=’),Xmax);
writeln(Rus(‘Его номер Imax=’),Imax);
readln;
end.