Предмет: Информатика,
автор: SuSHy69
Вывести три введённых числа в порядке возрастания, блок-схема. Прошу, помогите, люди добрые :(
90 баллов
Ответы
Автор ответа:
0
Program DaNNuu;
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i]:5);
end;
{сортировка массива}
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if a[min]>a[j] then
min:=j;
temp:=a[i];
a[i]:=a[min];
a[min]:=temp;
end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i]:5);
end.
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i]:5);
end;
{сортировка массива}
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if a[min]>a[j] then
min:=j;
temp:=a[i];
a[i]:=a[min];
a[min]:=temp;
end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i]:5);
end.
Автор ответа:
0
Но это не точно
Автор ответа:
0
это же паскаль и даже не блок-схема, я тоже могла из интернета взять информацию, но мне нужна именно блок-схема.
Автор ответа:
0
Мммм , сложно . Посмотри в каких-нибудь интернет-книгах про блок-схему
Автор ответа:
0
Блок-схема - в прилагаемом файле.
Приложения:

Похожие вопросы
Предмет: Алгебра,
автор: yakubjanovrustam0505
Предмет: Русский язык,
автор: chapter3s2008
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: isabella3
Предмет: Математика,
автор: ник200522