Паскаль!! Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера. Пример: Массив: 1 2 3 4 5 Минимальный элемент: A[1]=1 Максимальный элемент: A[5]=5
Const n=10; var i,amin,amax,imin,imax:integer; a:array[1..n] of integer; begin for i:=1 to n do a[i]:=random(30); writeln('Полученный массив:'); for i:=1 to n do write(a[i]:4); writeln; imax:=1; imin:=1; amax:=a[1]; amin:=a[1]; for i:=1 to n do if a[i]>amax then begin amax:=a[i]; imax:=i end else begin amin:=a[i]; imin:=i; end; writeln('A[',imin,']=',a[imin]); writeln('A[',imax,']=',a[imax]); end.
Answers & Comments
Verified answer
Constn=10;
var i,amin,amax,imin,imax:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
a[i]:=random(30);
writeln('Полученный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
imax:=1;
imin:=1;
amax:=a[1];
amin:=a[1];
for i:=1 to n do
if a[i]>amax then
begin amax:=a[i]; imax:=i end else
begin amin:=a[i]; imin:=i; end;
writeln('A[',imin,']=',a[imin]);
writeln('A[',imax,']=',a[imax]);
end.