использовать Рисователь
алг
нач
новый лист(600, 400, белый)
в точку (250,350)
линия в точку (300,75)
линия в точку (350,350)
линия в точку (250,350)
кисть(красный)
окружность(300, 75, 20)
залить(300,250)
в точку (200,350)
линия в точку (100,100)
линия в точку (265,265)
линия в точку (250,350)
линия в точку (200,350)
кисть(синий)
окружность(100, 100, 20)
залить(200,300)
в точку (400,350)
линия в точку (500,100)
линия в точку (335,265)
линия в точку (350,350)
линия в точку (400,350)
кисть(зеленый)
окружность(500, 100, 20)
залить(400,300)
кон
Объяснение:
Смотри картинку
program mas_kol_otr_kol_p;
const
n=10;
var
i,s:integer;
a:array[1..n] of integer;
begin
randomize;
writeln('Введите массив 》');
for i:=1 to n do
begin
a[i]:=random(61)-30;
write(a[i]:3,' ');
end;
writeln;
writeln('Меняем отрицательные на противоположные... 》');
for i:=1 to n do
begin
if(a[i]<0) then
a[i]:=abs(a[i]);
write(a[i]:3,' ');
end;
writeln;
writeln('Удаляем третий элемент... 》');
for i:=1 to n-1 do
begin
if(i>2) then
a[i]:=a[i+1];
write(a[i]:3,' ');
end;
writeln;
writeln('Считаем сумму... 》');
s:=0;
for i:=1 to n-1 do
s:=s+a[i];
write(s);
end.
