номер 5 (страница 117) гдз по информатике 11 класс учебник Босова, Босова

uses crt;
const n=10;
var a: array [1..n] of integer;
i,imin,imax: integer;
begin
imax:=1; imin:=1;
for i:=1 to n do
begin
a[i]:=random(199)-99;
write(a[i]:4);
if a[i]>a[imax] then imax:=i;
if a[i]‹a[imin] then imin:=i;
end;
writeln;
writeln('Максимальный элемент = ',a[imax],' под номером ',imax);
writeln('Минимальный элемент= ',a[imin],' под номером ',imin);
end.

Выполнение программы при произвольном выборе элементов массива:

-63 -52 -96 -90 -32 -62 -96 -48 -42 -89

Максимальный элемент= -32 под номером 5

Минимальный элемент= -96 под номером 3

Программа для массива из примера 6:

uses crt;
const n=7;
var a: array [1..n] of integer;
i,imin,imax: integer;
begin
imax:=1; imin:=1;
writeln('Введите 7 элементов массива);
for i:=1 to n do
begin
read (a[i]);
if a[i]>a[imax] then imax:=i;
if a[i]‹a[imin] then imin:=i;
end;
writeln;
writeln('Максимальный элемент = ',a[imax],' под номером ',imax);
writeln('Минимальный элемент = ',a[imin],' под номером ',imin);
end.

Введите 7 элементов массива

10 12 5 8 4 15 20

Максимальный элемент= 20 под номером 7

Минимальный элемент= 4 под номером 5