Одномерный массив (Pascal)

[Docen]

Дан одномерный массив целых чисел. Найти:
А) максимальный элемент массива и его номер при условии, что все элементы различны; массив - случайные числа.
Б) Сумму положительных элементов, значения которых меньше 10; массив вводится с клавиатуры.

[Sparky]

1.

program max_mas;
const n=10;
type mas=array[1..n] of integer;
var
   a:mas;
   i,max,imax:integer;
begin
     Randomize;
     for i:=1 to n do
         a[i]:=random(8);

     for i:=1 to n do
         write (a[i],' ');
         

     max:=a[1];
     imax:=1;
     for i:=2 to n do
     begin
          if a[i]>max then
          begin
               max:=a[i];
               imax:=i;
          end;
     end;
     writeln('max=',max,'number=',imax);
     
end.

[Sparky]

2

program max_mas;
const n=10;
type mas=array[1..n] of integer;
var
   a:mas;
   i,sum:integer;
begin
     for i:=1 to n do
         readln(a[i]);
     for i:=1 to n do
         write(a[i],' ');
     sum:=0;
     for i:=1 to n do
     begin
          if (a[i]>=0) and (a[i]<10) then sum:=sum+a[i];
     end;
     writeln('sum=',sum);
end.

[Grag]

Сообщение от Sparky

1.

program max_mas;
const n=10;
type mas=array[1..n] of integer;
var
   a:mas;
   i,max,imax:integer;
begin
     Randomize;
     for i:=1 to n do
         a[i]:=random(8);

     for i:=1 to n do
         write (a[i],' ');
              
end.

Вот это лучше записать так:

     max:=0;
     imax:=0;
     for i:=1 to n do
       begin
         a[i]:=random(8);
         write (a[i],' ');
         if a[i]>max then
           begin
             max:=a[i];
             imax:=i
           end
      end;
    writeln;
    {далее все остальное...}

Все в одном флаконе...