Склавиатуры вводится строка. подсчитать и вывести среднее арифметическое цифр в строке. pascal abc

Var
   Stroka:string;
   S:real;
   i,k:integer;
Begin
Write('Введите строку: ');ReadLn(Stroka);
k:=0;
S:=0;
For i:= 1 to Length(Stroka) do
    Begin
    Case Stroka[i] of
    '1':S:=S+1;
    '2':S:=S+2;
    '3':S:=S+3;
    '4':S:=S+4;
    '5':S:=S+5;
    '6':S:=S+6;
    '7':S:=S+7;
    '8':S:=S+8;
    '9':S:=S+9;
    End;
    Case Stroka[i] of
    '0'..'9':k:=k+1;
    End;
    End;
WriteLn('Сумма цифр: ',S);
WriteLn('Количество цифр: ',k);
WriteLn('Среднее арифметическое цифр: ',S/k);
End.

1) 

Const
n=10;

Var
a:array [1..n] of integer;
i,max:integer;

begin
Write('Введите массив: ');
For i:=1 to n do
Read(a[i]);
Readln;

max:=a[1];
For i:=1 to n do
If a[i]>max
Then
max:=a[i];

Writeln('Максимальный элемент - ',max);
Readln;
end.

2)  хз

3) 

const
n = 100;
var
arr: array[1..n] of integer;
i, m, qty: byte;
begin
write('Количество элементов массива: ');
readln(m);
write('Элементы массива через пробел: ');
for i:=1 to m do
read(arr[i]);
readln;

qty := 0;
i := 2;
while i < m do
if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin
qty := qty + 1;
i := i + 2
end
else
i := i + 1;

writeln('Кол-во элементов, которые больше соседей: ', qty);

readln;
end.

Вроде как-то так

 

 

 2)

Program Massiv1;

var a:array[1..10] of real;

       i:integer;

       s:real;

begin

      clrscr;

       write('Введите элементы массива: ');

 

      s:=0;

 

      for i :=1 to 10 do

             begin

                  readln(a[i]);   

 

                  if  (a[i]>0) then s:=s+1;

 

           end;

writeln;

for i :=1 to 10 do     writeln(a[i]:3:3);   

 writeln('Количество положительных элементов:',s);

 readkey;

 

 end.

 

 

 3)

Program Massiv2;

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

       i,b:integer;  

  begin

       clrscr;

       b:=2; 

       for i :=1 to 10 do

             begin

                a[i]=i+b;

                 b:=b+1; 

 

                 write(a[i]:2); 

 

             end;   

readkey;

end.