Определить максимальный и минимальный элементы массива и поменять их местами

@Wredina · Регистрация: 05.01.2011

Студворк — интернет-сервис помощи студентам

проверьте правильно ли написала программу
определить максимальный и минимальный элементы массива и поменять их местами

Pascal

uses crt;
var i,b,min,max,m,n:integer;
a:array [1..7] of integer;
begin
clrscr;
for i:=1 to 7 do
readln(a[i]);
max:=a[i];
for i:=1 to 7 do
begin
if a[i]>=max then
begin
max:=a[i];
m:=i;
end
else
if a[i]>min then
begin
min:=a[i];
n:=i;
end;
end;
b:=a[m];
a[m]:=a[n];
a[n]:=b;
for i:=1 to 7 do
write (a[i],' ' );
readln;
end.

@V@D!k · 06.05.2011, 19:40

Pascal

1	if a[i]>min

у тя до этого момента минимальное не найдено

Добавлено через 52 секунды
мах и мин надо присваивать до цикла так у тя цикл с предусловием

Добавлено через 3 минуты

Pascal

uses crt;
var i,b,min,max,m,n:integer;
a:array [1..7] of integer;
begin
clrscr;
for i:=1 to 7 do
readln(a[i]);
max:=a[i];
min:=a[i];
for i:=1 to 7 do
begin
if a[i]>=max then
begin
max:=a[i];
m:=i;
end
else
if a[i]>min then
begin
min:=a[i];
n:=i;
end;
end;
a[m]:=min;
a[n]:=max;
for i:=1 to 7 do
write (a[i],' ' );
readln;
end.

так попробуй

Опции темы