Предмет: Информатика,
автор: Tanya28064
Составьте программу, которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 100 , затем меняет местами максимальный и минимальный элементы. выведите на экран исходный и полученый массивы
Ответы
Автор ответа:
0
var i,min,max:integer;
a:array[1..10] of integer;
begin
min:=100;
max:=0;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
if (a[i] > max) then max:=a[i]; if (a[i] < min) then min:=a[i];
end;
writeln('');
for i:=1 to 10 do
begin
if a[i] = max then a[i]:=min else if a[i] = min then a[i]:=max;
write(a[i],' ');end;
end.
a:array[1..10] of integer;
begin
min:=100;
max:=0;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
if (a[i] > max) then max:=a[i]; if (a[i] < min) then min:=a[i];
end;
writeln('');
for i:=1 to 10 do
begin
if a[i] = max then a[i]:=min else if a[i] = min then a[i]:=max;
write(a[i],' ');end;
end.
Автор ответа:
0
const
n = 10;
var
i, min, max: integer;
a: array[1..n] of integer;
begin
min := 1; max := 1;
for i := 1 to n do
begin
a[i] := random(101);
write(a[i]:4);
if (a[i] > a[max]) then
max := i;
if (a[i] < a[min]) then
min := i;
end;
i := a[max];
a[max] := a[min];
a[min] := i;
writeln();
for i := 1 to n do
write(a[i]:4);
end.
n = 10;
var
i, min, max: integer;
a: array[1..n] of integer;
begin
min := 1; max := 1;
for i := 1 to n do
begin
a[i] := random(101);
write(a[i]:4);
if (a[i] > a[max]) then
max := i;
if (a[i] < a[min]) then
min := i;
end;
i := a[max];
a[max] := a[min];
a[min] := i;
writeln();
for i := 1 to n do
write(a[i]:4);
end.
Автор ответа:
0
я сомневаюсь что решением можно помочь комуто, для этого надо не решать а помочь решить - это разные вещи
Автор ответа:
0
эстетика алгоритмов? что-то новенькое..
Похожие вопросы
Предмет: Химия,
автор: tigrenok5532
Предмет: География,
автор: anastasiaslobodan537
Предмет: История,
автор: a6979415
Предмет: Математика,
автор: TELITO69