Демонстрация сортировки. после каждой строки нажимайте "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.​

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

компьютер телфон и иже с ними

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.

заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом