Максимальный элемент в массиве и его индекс на Pascal
Максимальный элемент в массиве и его индекс...
const
Sz = 100;
var
a: array [1..Sz] of real;
N: integer;
min: real;
minind: integer;
begin
N := 20;
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
min := a[1];
minind := 1;
for var i:=2 to N do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
writeln('Минимальный элемент: ',min);
writeln('Индекс минимального элемента: ',minind);
end.
10.02.2015, 10:42 -
Категория: Статьи » Программирование » Pascal