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

UptoLike

ВУЗ: 

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

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

Рубрика: 

115
var
imin,i:integer;
x:array[1..nmax]of integer;
begin
writeln('Найти минимальное значение элемента массива');
writeln('и его порядковый номер');
writeln('Введите 10 элементов массива');
imin:=1; {номер минимального элемента}
for i:=1 to nmax do
begin
read(x[i]);
if x[i]<x[imin] then
imin:=i;
end;
writeln('Минимальное значение=',x[imin]);
writeln('Порядковый номер =',imin);
writeln('Для окончания работы нажмите enter');
readln;
end.
Пример 7.4. Найти минимальное значение элемента массива на
нечетной позиции.
program a5;
var
a:array[1..10]of integer;
ind,i,min:integer;
begin
writeln('Найти минимальное значение элемента ');
writeln('массива на нечетной позиции');
writeln('Введите 10 чисел');
ind:=1; {номер минимального
элемента}
for i:=1 to 10 do
begin
read(a[i]);
if (i mod 2)=1 then
if a[i]<a[ind] then ind:=i;
end;
writeln('Минимальное значение=',a[ind]);
writeln('Для окончания работы нажмите enter');
readln;
end.

Страницы