нужна по информатике ! Нужно по инструкции написать автобиографию( любую) кратко , прикрепляю инструкцию!
Готовое задание отправьте файлом ворд! Буду благодарна!

uses crt;

var

 ar: array[1..19]of integer;

 i, mul, sum, count, min, mini: integer;

begin

 count := 0;

 sum := 0;

 mul := 1;

 randomize;

 for i := 1 to 19 do

 begin

   ar[i] := random(13) - 6;

   mul := mul * ar[i];

   if(ar[i] mod 2 = 0) then

   begin

     textbackground(green);  

     sum := sum + ar[i];

     count := count + 1;

   end;

   if(ar[i] = 5) then

     textbackground(red);

   write(ar[i], ' ');

   textbackground(black);  

 end;

 writeln();

 writeln('Произведение всех элементов массива = ', mul);

 writeln('Сумма четных чисел = ', sum, ', количество = ', count);

 min := ar[1];

 mini := 1;

 write('Номера элементов, равных 5: ');

 for i := 1 to 19 do

 begin

   if(ar[i] = 5) then

     write(i, ' ');

   if((ar[i]) < min) then

   begin

     min := ar[i];

     mini := i;

   end;

 end;

 writeln();

 writeln('Минимальный элемент = ', min, ', его номер = ', mini);

end.

1. Якщо від мене хочуть через модуль Turtle намалювати трикутник, то ось:

import=turtle

t=turtle.Pen ()

t.forward (70)

t.right (90)

t.forward (30)

t.right (90)

t.forward (70)

t.right (90)

t.forward (30)

Також, якщо потрібно усе стерти, але залишити черепашку на тому ж місці, застосуй команду: t.clear

2. Ось твій код:

a=int (input ("Скільки сантиметрів пляма на штанцях?") )

if a <2:

print ('Приймуть')

else:

a>2

print ('На жаль, не приймуть')

Ми застосовуємо тут змінну a, а також стрічку для того, щоб користувач ввів свої данні.

!Слідкуй за пробілами, коли ти пишеш if: , клацай enter, якщо працюєш в IDLE!