Если на паскале то вот простой рисунок человечка : uses graphabc; var x,y: integer; beginx: =windowwidth div 2; y: =windowheight div 2; circle(x,y-100,25); line(x-50,y-75,x+50,y-75); line(x-50,y-75,x,y+25); line(x+50,y-75,x,y+25); line(x-70,y-75,x-50,y-75); line(x-70,y-75,x-60,y+25); line(x-50,y-75,x-60,y+25); line(x+70,y-75,x+50,y-75); line(x+70,y-75,x+60,y+25); line(x+50,y-75,x+60,y+25); line(x+40,y+25,x,y+25); line(x+40,y+25,x+20,y+125); line(x,y+25,x+20,y+125); line(x-40,y+25,x,y+25); line(x-40,y+25,x-20,y+125); line(x,y+25,x-20,y+125); end.
kruttorg
08.08.2020
Const n = 10; var a: array[1..n] of integer; i, j, t: integer; begin randomize; writeln('исходный массив'); for i : = 1 to n do begin a[i] : = random(16)-10; write(a[i]: 4) end; writeln; for i : = 1 to n-1 do for j : = 1 to n-i do if a[j] > a[j+1] then begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end; writeln('отсортированный по возрастанию массив'); for i : = 1 to n do write(a[i]: 4); writeln end. тестовое решение: исходный массив -10 -9 2 -3 -6 -10 -2 5 4 0 отсортированный по возрастанию массив -10 -10 -9 -6 -3 -2 0 2 4 5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны четыре различных числа. определить максимальное из них (определить функцию, находящую максимальное из двух чисел написать код на языке с++