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.
ответ:
объяснение: чтобы стать студентом по обмену, необходимо для начала поступить в вуз на родине, в котором есть отдел международного образования. этот отдел отвечает за сотрудничество с иностранными университетами, в том числе и в вопросе обмена.
главным условием для перевода является владение языком той страны, в которой собирается обучаться студент. для этого потребуется пройти соответствующий тест. срок обучение может занять от полугода до нескольких лет, вплоть до получения дипломы иностранного вуза. все зависит от того, по какой программе удастся достигнуть договоренности.
преимущество учебы по обмену — это возможность остаться после успешного завершения университета в другой стране, устроится на работу и получить гражданство.
1) ответ: 0,222
2) ответ: 0,564