Составить алгоритм как ты будешь рисовать корабль по пунктам

1.Для начала нарисуйте основной контур корабля. Для будущего корпуса нарисуйте такую вот несложной формы контур, из которого мы и будем "строить" корабль.
2.Теперь нужно нарисовать основу мачт старинного деревянного корабля парусника. Для этого сначала нарисуйте две длинные вертикальные линии. Первая справа будет самая большая и левая чуть короче. Пометьте мачты корабля черточками в тех местах, где будут перекладины для парусов.
3.На этом этапе нужно нарисовать контуры парусов фрегата. Рисуйте их почти прямоугольной формы. На крайней правой мачте их будет три (треугольной формы). На средней мачте будет пять парусов, на последней мачте корабля тоже пять, но только меньшего размера.
4.Сейчас нам нужно будет нарисовать корму парусного корабля в деталях. Нарисуйте боковую линию кормы плавной линией, а также учтите, что задняя часть кормы должна располагаться чуть ниже по отношению к носовой части корабля. Выделите носовую часть еще одной вертикальной линией и нарисуйте продольные участки вдоль корпуса.
5.На этом этапе рисуем мачты и паруса нашего парусника более детально. Прежде всего, удалите ластиком предыдущие ненужные контуры основы корабля и мачт, а после прорисуйте окончательно форму всех парусов и мачт. Чтобы вам было легче это сделать, ориентируйтесь на мой рисунок.
6.Сейчас займемся парусами корабля "основательно" и натянем их полотнище ветром. Начнем с первой наклонной мачты. Эти паруса будут в виде треугольников. Придадим этим парусам небольшой изгиб от бокового ветра. Нарисуйте в деталях и основные паруса корабля. Для этого вертикальные прямые линии нужно заменить слегка изогнутыми. Это создаст впечатление дующего в паруса ветра, а заодно и движения корабля.
7.Если вы будете рисовать корабль только простым карандашом, то для нанесения теней используйте мягкий карандаш. Затените гормональные участки кормы. С теней мачты и паруса на рисунке станут объемными.

Представлю 3 программы два с массивом и один без массива

1)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

 end;

  for i:=1 to n do  begin

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

2)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

3)var a,i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

if n<=10 then begin

 for i:=1 to n do  begin

     writeln('введите оценку за экзамен');

   readln(a);

    if a=5 then k5:=k5+1;

    if a=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end;

 end.

Объяснение:

1)выливаем из 8-литрового в 3-хлитровую

2).Эту 3-хлитровую выливаем в 5-тилитровый сосуд

3))выливаем из 8-литрового в 3-хлитровую

4).Эту 3-хлитровую выливаем в 5-тилитровый сосуд, до того, пока он становится полным.

5).Этот 5-тилиртовый сосуд (молоко) выливаем полностью в 8-илитровую

6).1 литр молока, который находится в 3-хлитровом сосуде, выливаем в 5-илитровый.

7)выливаем из 8-литрового в 3-хлитровую

8)это молоко из 3-хлитрого выливаем в 5-тилитровый. Там стал 4 литра молока!

В 8-милитровом сосуде также 4 литра молока.