1.Складіть проєкт, у якому виконавець намалює прямокутник, одна зі сторін якого на 20 кроків більша за іншу.2.Складіть проєкт, у якому виконавець з’єднає точки з указаними координатами: (50; -20), (0; 30), (-10; 30), (-15; 25), (-10; 20), (-10; 0), (0; -10), (20; -15), (35; -15), (50; -20) і побудує графічну модель птаха. Зафарбувати птаха. from turtle import*goto(50, -20)goto(0,30)goto(-10,30)goto(-15,25)goto(-10,20)goto(-10,0)goto(0,-10)goto(20,-15)goto(35,-15)goto(50,-20)

//Язык Pascal

Program Test;

var
Mas: array[1..10] of integer;
result1: integer;
result2: real;

function Sum(): integer;
var summa: integer;

begin
summa := 0;

for var i := 1 to 10 do
summa := summa + Mas[i];

Sum := summa;
end;

procedure Arifmetic(r1: integer; var A: real);
begin
A := r1 / 10;
end;

Begin

for var i := 1 to 10 do
begin
Write('Введите ', i, ' элемент: ');
Readln(Mas[i]);
end;

result1 := Sum();
Arifmetic(result1, result2);

Writeln();
Writeln('Сумма = ', result1);
Writeln('Среднее арифметическое = ', result2);

End.

Program summa;

 Uses crt;

 Const m=20;

 Var a:array[1..m] of integer;

     i,s:integer;

 Begin

   For i:=1 to m do

    a[i]:=random(101)-50;

   For i:=1 to m do

    s:=s+a[i];

   If s>50 then writeln('Сумма = ',s) else

    for i:= 1 to m do

      Writeln('Элемент массива №',i,' равен ',a[i]);

 End.

 

или

 

Program summa;

 Uses crt;

 Const m=20;

 Var a:array[1..m] of integer;

     i,s:integer;

 Begin

   For i:=1 to m do

    Readln(a[i]);

clrscr;

   For i:=1 to m do

    s:=s+a[i];

   If s>50 then writeln('Сумма = ',s) else

    for i:= 1 to m do

      Writeln('Элемент массива №',i,' равен ',a[i]);

 End.