Помогите пожалуйста, заранее спасибо Паскаль abc: Массив а(10) поменять местами min и max
Помогите пожалуйста, заранее спасибо
Паскаль abc:
Массив а(10) поменять местами min и max
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..10]of integer;
b,min,max,I,maxi,mini:integer;
begin
for I :1 to 10 do
readln(a[I]);
max:=a[1];
min:=a[1];
maxi:=1;
mini:=1;
for I :1 to 10 do
begin
if a[I]>max then begin
max:=a[I];
maxi:=I;
end;
if a[I]
Не нашли ответ?
Похожие вопросы