Есть ответ 👍

Напишите программу на паскале (8 класс)

192
368
Посмотреть ответы 2

Ответы на вопрос:


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.

если нужно подробней напиши в личку

 

Популярно: Информатика