- 23.11.2016 19:24
- Информатика
- remove_red_eye 15183
- thumb_up 7
Ответы и объяснения 1
Const N = 10;
var a: array[1..N] of integer;
i, j, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to N do
begin
a[i] := random(100);
write (a[i]:4);
end;
writeln;
writeln;
for i := 1 to N-1 do
for j := 1 to N-i do
if a[j] > a[j+1] then
begink := a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
write ('Отсортированный массив: ');
for i := 1 to N do write (a[i]:4);
writeln;
readln;
end.
- 24.11.2016 03:16
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.