Предмет: Информатика,
автор: arutunyantatevi
поменять в массиве максимум и минимум, если максимум встречается раньше, чем минимум
помогите, пожалуйста (((очень нужно
arutunyantatevi:
то есть поменять местами
одномерный массив?
линейный)
да, это одно и то же :-D
одномерный) помоги, пожалуйста, в долгу не останусь
Ответы
Автор ответа:
1
Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местами
Паскаль
Целочисленный массив
По одному вхождению максимума и минимума
Если все, то пишите!
var
n,imax,imin,i,r:integer;
a:array[1..100] of integer;
begin
write('n= ');
readln(n);
for i:=1 to n do
read(a[i]);
writeln('Table:');
imax:=1;
imin:=1;
for i:=1 to n do
begin
write(a[i]:8);
if a[imax]<a[i] then imax:=i;
if a[imin]>a[i] then imin:=i
end;
r:=a[imax];
a[imax]:=a[imin];
a[imin]:=r;
writeln;
writeln('New table:');
for i:=1 to n do
write(a[i]:8);
end.
Паскаль
Целочисленный массив
По одному вхождению максимума и минимума
Если все, то пишите!
var
n,imax,imin,i,r:integer;
a:array[1..100] of integer;
begin
write('n= ');
readln(n);
for i:=1 to n do
read(a[i]);
writeln('Table:');
imax:=1;
imin:=1;
for i:=1 to n do
begin
write(a[i]:8);
if a[imax]<a[i] then imax:=i;
if a[imin]>a[i] then imin:=i
end;
r:=a[imax];
a[imax]:=a[imin];
a[imin]:=r;
writeln;
writeln('New table:');
for i:=1 to n do
write(a[i]:8);
end.
Источникotvet.mail.
Источник:http
а то,что если максимум встречается раньше,чем минимум?
://otvet.mail.
ru/question/167934580
максимум должен встречаться раньше.чем минимум
..
??
В одномерном массиве поменять местами минимальный и максимальный элементы. Все элементы большие 4 заменить числом 4. Посчитать количество таких элементов.
const n=10;
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]
Похожие вопросы
Предмет: Английский язык,
автор: катя456910
Предмет: Українська мова,
автор: like85911
Предмет: Українська мова,
автор: toongooru
Предмет: Биология,
автор: Yarik38296