Броздецкий Владимир Семёнович
"Заслуженный Учитель РФ"
Учитель биологии
и информатики
Москва
(Домашняя работа для 9к и 9а (только для должников)
Если не поняли объяснения
Итоговая работа
Демонстрация сортировки. После каждой строки нажимайте "Enter"
Program z1;
Uses Crt;
Var i,m,j: integer;
a: array[1..10] of integer;
Begin
ClrScr;
randomize;
for i:= 1 to 10 do
begin
textcolor (4);
a[i]:=random(9)+1;
write (' ', a[i]);
delay(100);
end;
writeln(' ');
readln;
for j:=1 to 10 do
begin
for i:= 1 to 9 do
begin
if a[i]> a[i+1] then
begin
m:=a[i];
a[i]:= a[i+1];
a[i+1]:=m;
end;
end;
for i:= 1 to 10 do
begin
textcolor (4);
write (' ', a[i]);
delay(100);
end;
writeln(' ');
readln;
end;
writeln(' ');
for i:= 1 to 10 do
begin
textcolor (4);
write (' ', a[i]);
delay(100);
end;
ReadKey;
end.
СПРАВОЧНЫЕ МАТЕРИАЛЫ
Учебник Босовой Л.Л. 9 класс в 2-х томах