Const n = 10; var i, j, buf, k: integer; a: array[1..10] of integer; begin for i: =1 to n do begin write('a[',i,']= '); readln(a[i]); end; writeln('исходный массив: '); for i: =1 to n do write(a[i]: 5); writeln; writeln('сортировка: '); for i: =1 to n do begin for j: =n-1 downto i do if a[j]> a[j+1] then begin buf: =a[j]; a[j]: =a[j+1]; a[j+1]: =buf; end; for k: =1 to n do write(a[k]: 5); writeln; end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i]: 5); writeln; readln; end. 1. определить метод сортировки. 2. возможно ли применить данный метод сортировки для сортировки массивов по возрастанию, так и для сортировки массивов по убыванию? 3. опишите последовательность действий и реализуйте их в программе, если ответ на второй вопрос будет положительным. 4. реализуйте программу для массива: [56; 48; 36; 47; 12]. представить результаты. 5. составить алгоритм работы представленной программы в словесной форме.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Гауа0987

22.10.2020 13:40

Дан массив c(10) . сформируйте из него массивы a и b , предварительно определив их длину . в один из них заключите элементы , которые больше среднего арифмитического...

марина1929

28.06.2021 12:33

С РЕШЕНИЕМ ЗАДАНИЯ НА ЭКЗАМЕНЕ МОЛЮ! Напишите программу, которая будет создавать файл в вашем проекте, в формате txt, и запишите программно в этот файл свое имя и отчество,...

badder02021

24.11.2022 05:20

с информатикой нужно ответить ра вопросы...

maryam124

25.02.2023 03:00

Це все зробити в Paskal aбо в PaakalABC Задача №29: Розробити програму, яка запитує вік користувача (від 1 до 130 років) і визначає, до якої вікової категорії він належить1)...

Rimma1223

23.01.2023 23:30

Название науки, что является древним аналогом современной информатики, то есть предмет изучения был общий, но в то время гаджетов не было, и люди использовали другие...

antonil70

19.07.2020 17:37

Java programming one for loop using star pattern please help methe result should be this photoright angle triangle star pattern...

Daniil199511

10.09.2021 05:15

10001(2) +10(2) = ? (2)=? (10)11001(2)-11(2) = ? (2)=? (10) 10011(2)•11(2) = ? (2)=? (10) ...

kcufka123456789

10.01.2022 22:54

Сколько существует различных трехзначных чисел в восьмеричной системе счисления?...

punchplz

28.06.2020 06:10

1)Какой объём на диске (в кбайтах) будет занимать 8-цветное изображение размером 2048х1024 пикселей? 2)Определить сколько цветов в 16-битовой палитре. Заранее...

Папинадочка111

13.03.2022 06:20

С рулетки размеры бруса (220 см х 11 см х 10 см) измерили с точностью 1 см. Определите его объём. Запишите ответ с учётом точности полученного результата полное решение!...

Ответ:

Annaanna2002

09.05.2022 06:02

var
a: Array[1..10, 1..10] of Real;
n, m, i, j, i1, j1, i2, j2: Byte;
min, max: Real;

begin
Writeln('Введите кол-во строк и столбцов');
Read(n, m);Writeln;
for i := 1 To n Do
begin
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');
for j := 1 To m Do Read(a[i, j])
end;
Writeln('Ваша матрица:');
for i := 1 To n Do
begin
for j := 1 To m Do
Write(a[i, j]:7:2);
Writeln
end;
for i := 1 To n Do
begin
min := a[i, 1];i1 := i;j1 := 1;
for j := 1 To m Do
if a[i, j] < min then begin
min := a[i, j];i1 := i;j1 := j
end;
if i = 1 Then begin
max := min;i2 := i1;j2 := j1
end
Else if min > max Then begin
max := min;i2 := i1;j2 := j1
end
end;
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.

0,0(0 оценок)

Ответ:

batrazmargit

11.02.2021 10:59

1)
const n=10;
var a:array[1..n] of integer;
i,min,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(81)+10;
write(a[i]:4);
end;
writeln;
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
s:=s+a[i];
end;
writeln('min = ',min);
writeln('s = ',s);
end.

Пример:
54 58 67 78 58 79 54 78 44 60
min = 44
s = 630

2)
const n=9; m=6;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do a[i,j]:=i;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
end.

Результат:
111111
222222
333333
444444
555555
666666
777777
888888
999999

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку