Ответы на вопрос:
program test;
var a: array [1..10] of integer;
i,m: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
if i=1 then m:=a[i] else
if a[i]>m then m:=a[i];
write(a[i],' ')
end;
writeln;
write(m)
end.
существует режим «edit mode», который позволяет изменять длину или диаметр сегмента, и инструменты, позволяющие заменить круг на линию (и обратно), дублировать сегмент или "обездвижить" его в главном окне аниматора. фигуры сохраняются в формате .stk.
если нужно подробней напиши в личку
Популярно: Информатика
-
Intagul05.05.2023 03:59
-
алисалисова161126.08.2022 19:42
-
Natusik161616.07.2022 09:09
-
здравствуйте11227.04.2020 11:24
-
anonimm85227.07.2022 00:25
-
ira23100628.05.2020 04:28
-
polinaaaaaaaaaiiii05.08.2022 16:35
-
Нафаня15818.01.2020 09:43
-
nekrasska16.09.2020 00:11
-
tanzbis05.11.2020 04:30