Обработка одномерного массива

дан одномерный массив чисел а1, а20 и число b. составить блок-схему алгоритма согласно варианту

дано матрицу сіј (i=; j=). записать вектор х (i=), для которого xi ¾сума положительных элементов i–й строки

скласть блок-схему

Var
a : array[1..10] of word;
max : word;
begin
   
  randomize;
 
  for I : byte := 1 to 10 do
  a[i] := random(1, 60000);

  max := 0;
  for I : byte := 1 to 10 do
  if a[i] > max then max := a[i];

  writeln(max*3);

end.

Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.

Uses crt;
var x,y:integer;
begin
read(x);
read(y);
if x > 0 and y < 0  then
write(x*y*2);
end.
                                 
                                  число  x  > 0
                              /                          \
                            /                             \
                          /                               \
                       да                               нет
                        /
                       /
               
                     y < 0          \
               /                     нет
              /
            /
          да (вывести удвоенное)