Автор: asdfg

asdfg — Sun, 29 Aug 2021 14:09:32 +0000

type
aoi = array [1..30] of integer;
var
a:aoi;
i,j,n:integer;

function MinElem (a:aoi;n:integer):integer;
 var
 x,i:integer;
  begin
    x:=a[1];
    for i:=2 to n do if x>a[i] then x:=a[i];
    MinElem:=x;
  end;

begin
  for i:=1 to 3 do
  begin
    readln(n);
    for j:=1 to n do read(a[j]);
    writeln (MinElem(a,n));
  end;
end.

type

aoi = array [1..30] of integer;

var

a:aoi;

i,j,n:integer;

function MinElem (a:aoi;n:integer):integer;

var

x,i:integer;

begin

x:=a[1];

for i:=2 to n do if x>a[i] then x:=a[i];

MinElem:=x;

end;

begin

for i:=1 to 3 do

begin

readln(n);

for j:=1 to n do read(a[j]);

writeln (MinElem(a,n));

end;

end.

Автор: asdfg

asdfg — Sun, 29 Aug 2021 13:43:05 +0000

В предложенном решении выдаёт неправильные ответы из-за того что функция ищет номер элемента, а не сам элемент.

 if (A[i]<A[MinEl]) then MinEl:=i; // <- вот тут a[i] вместо i

1	if (A[i]<A[MinEl]) then MinEl:=i; // <- вот тут a[i] вместо i

Комментарии: Решаем задачи Абрамян на Паскале. Param1

Автор: asdfg

Автор: asdfg