использовать Чертежник алг нач сместиться на вектор (1,10) опустить перо сместиться на вектор (3,-5) сместиться на вектор (1.6,0) поднять перо сместиться на вектор (1.4,5) опустить перо сместиться на вектор (-2.5,-9) сместиться на вектор (-3.5,0) поднять перо сместиться на вектор (7,0) опустить перо сместиться на вектор (0,9) сместиться на вектор (4,0) сместиться на вектор (1,-1) сместиться на вектор (0,-3) сместиться на вектор (-1,-1) сместиться на вектор (-4,0) поднять перо сместиться на вектор (6,-4) опустить перо сместиться на вектор (3.5,9) сместиться на вектор (3.5,-9) поднять перо сместиться на вектор (-5.5,4) опустить перо сместиться на вектор (4,0) поднять перо сместиться в точку (0,0) кон
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
использовать Чертежник
алг
нач
сместиться на вектор (1,10)
опустить перо
сместиться на вектор (3,-5)
сместиться на вектор (1.6,0)
поднять перо
сместиться на вектор (1.4,5)
опустить перо
сместиться на вектор (-2.5,-9)
сместиться на вектор (-3.5,0)
поднять перо
сместиться на вектор (7,0)
опустить перо
сместиться на вектор (0,9)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-3)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,-4)
опустить перо
сместиться на вектор (3.5,9)
сместиться на вектор (3.5,-9)
поднять перо
сместиться на вектор (-5.5,4)
опустить перо
сместиться на вектор (4,0)
поднять перо
сместиться в точку (0,0)
кон
2 вариант - написать:
использовать Чертежник
алг
нач
вещ n=55
лит m="УРА"
написать(n, m)
кон