Это будет чертеж так как схема и карта предназначены для других целей
Дмитрий_Евлампиев518
24.12.2020
Var a, sum, i: integer; begin writeln('enter number: '); readln(a); sum : = 0; for i: =1 to a do begin sum : = sum + n mod 10; n : = n div 10 end; end; writeln('sum of digits = ', sum); readln; end.
zhunina71807
24.12.2020
program al; var a: array[1..32000] of integer; buf: integer; i,n,min,max: integer; begin writeln('n='); readln(n); writeln('vvedite massiv='); for i : = 1 to n do readln(a[i]); min: =1; max: =1; for i: =2 to n do begin if a[min]> a[i] then min: =i; if a[max]< a[i] then max: =i; end; buf: =a[min]; a[min]: =a[max]; a[max]: =buf; writeln('massiv posle obmena max< -> min'); for i: =1 to n do write(a[i]: 4); writeln; end.