Отметьте точки: 1(1, 2), 2(1, 3), 3(2, 4), 4(5, 4), 5(4, 5), 6(4, 7), 7(5, 8), 8(9, 8), 9(10, 7), 10(17, 7), 11(17, 6), 12(10, 6), 13(10, 5), 14(9, 4), 15(13, 4), 16(14, 3), 17(14, 2), 18(13, 1), 19 (2, 1) соедините точки: 1 – 2 – 3 – 4 – 5 – 6 – 7 – 8 – 9 – 10 – 11 – 12 – 13 – 14 – 15- 16 -17 - 18 - 19 - 1 . должен получиться танк . . киньте рисунок.

Так понятно? (Через координаты x и y)

Алг
нач
  целтаб А[1:2, 1:3]
  цел а, б
  вывод "Исходная матрица:", нс
  нц для а от 1 до 2
    нц для б от 1 до 3
      А[а,б] := irand(-9,9)
      вывод А[а,б], " "
    кц
    вывод нс
  кц
  вещ Б
  если А[1,1] >= 0
    то
      Б := 0
      нц для а от 1 до 2
        нц для б от 1 до 3
          Б := Б + А[а,б]
        кц
      кц
      вывод "Сумма = ", Б
    иначе
      Б := 1
      нц для а от 1 до 2
        нц для б от 1 до 3
          Б := Б * А[а,б]
        кц
      кц
      вывод "Произведение = ", Б
  всё
кон

Примеры работы программы:

Исходная матрица:
-2 -2 5
-8 -6 5
Произведение = 4800.0

Исходная матрица:
0 2 0
8 9 4
Сумма = 23.0

Исходная матрица:
0 9 1
3 -9 9
Сумма = 13.0

Const rchars='аеиоуыэюя';var s: string; mas: array[1..length(rchars)] of integer; k,i: integer;
begin  s:='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буквы,которые.'; {readln(s);}  {инициализация массива счётчика гласных}  for k:=1 to length(rchars) do    mas[k]:=0;  i:=1;  while i<=length(s) do begin  {проверка на соответствие буквы гласной, согласно списку гласных}    for k:=1 to length(rchars) do      if (rchars[k]=s[i]) and (mas[k]<>-1) then        mas[k]:=mas[k]+1;    if (s[i]=',') or (s[i]='.') then      begin

        {проверить повторение гласных на два и более раз и проинициализировать массив счётчик}        for k:=1 to length(rchars) do          if (mas[k]<=2) and (mas[k]<>-1) then            mas[k]:=0          else            mas[k]:=-1;      end;    Inc(i);  end;

  {Вывод повторяющихся гласных}
  s:='';  for k:=1 to length(rchars) do    if mas[k]=-1 then      s:=s+rchars[k];

  writeln(s);end.