const n=20;
var a: array [1..n] of integer;
i,max,maxi,min,mini: integer;
begin
write('массив: ');
for i: = 1 to n do
begin
a[i]: =random(101)+50;
write (a[i],' ')
end;
max: =a[1];
maxi: =1;
min: =a[1];
mini: =1;
for i: = 1 to n do
begin
if a[i]> max then
begin
max: =a[i];
maxi: =i
end;
if a[i]< min then
begin
min: =a[i];
mini: =i
end
end;
writeln;
writeln('максимальный элемент ',max,' и его номер ',maxi);
writeln('минимальный элемент ',min,' и его номер ',mini)
end.
или (если max или min элемент будет не один)
const n=20;
var a: array [1..n] of integer;
i,max,min: integer;
begin
write('массив: ');
for i: = 1 to n do
begin
a[i]: =random(101)+50;
write (a[i],' ')
end;
max: =a[1];
min: =a[1];
for i: = 1 to n do
begin
if a[i]> max then max: =a[i];
if a[i]< min then min: =a[i]
end;
writeln;
for i: = 1 to n do
begin
if a[i]=max then writeln('максимальный элемент ',max,' и его номер ',i);
if a[i]=min then writeln('минимальный элемент ',min,' и его номер ',i)
end
end.
Популярные вопросы