Алгоритмы и программы. Афанасьева Т. В - 116 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

116
Пример 7.5. Найти максимальное значение и его порядковый номер.
program a7;
const nmin=10;
var
imax,i:integer;
x:array[1..nmin]of integer;
begin
writeln('Найти максимальное значение и его порядковый номер');
writeln('Введите 10 элементов массива через пробел');
imax:=1;
for i:=1 to nmin do
begin
read(x[i]);
if x[i]>x[imax] then imax:=i;
end;
writeln('Максимальное значение=',x[imax]);
writeln('Порядковый номер =',imax);
writeln('Для окончания работы нажмите enter');
readln;
end.
Пример 7.6. Программа, меняющая в массиве (5 –2 1 13 7) макси-
мальное и минимальное числа.
program iv44;
const n=5;
type
mass=array[1..n]of integer;
const
arr:mass=(5,–2,1,13,7);{ввод массива типизированной константой}
var
i,x,max,min:integer;
begin
writeln('Программа, меняющая в массиве
5 –2 1 13 7');
writeln('максимальное и минимальное числа.');
max:=1; {номер максимального}
min:=1; {номер минимального}
for i:=1 to n do
begin
if arr[i]>arr[max] then
max:=i;
if arr[i]<arr[min] then
min:=i;
end;

Страницы