Выполните устный счёт по блок-схеме для чисел
X-64; 125; 840.
​

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

костер: в древности люди разжигали костры, дым от которых был виден за сотни километров. они служили визуальными сигналами, оповещали о чем-то, например об опасности.

сумка с конвертами внутри: это атрибутика почтальона, разносящего письма.

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

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.