Определить сумму элементов массива, оканчивающихся нулём

var
  A : array [1..10] of Integer;
  i, S : Integer;
begin
  for i := 1 to 10 do begin Write('Enter ', i, ' number = '); ReadLn(A[i]); end;
  Write('The last digit is zero:'); S := 0; for i := 1 to 10 do if A[i] mod 10 = 0 then begin Write(' ', A[i]); S := S + A[i]; end; WriteLn;
  WriteLn('And the amount = ', S);
end.

var
  A : array [1..10] of Integer;
  i, M : Integer;
begin
  Randomize; Write('Random array:'); for i := 1 to 10 do begin A[i] := Random(100); Write(A[i]:3); end; WriteLn;
  M := 1; for i := 2 to 10 do if A[M] < A[i] then i;
  WriteLn('Maximum A[', M, '] = ', A[M]);
end.

var
  a: array[1..10] of integer;
  i, ans: integer;
 
begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 0 then begin
      ans := ans + a[i];
      write(a[i], ' ');
    end;
  writeln;
  write(ans);
end.

const
  MAX_VAL = 100;
 
var
  a: array[1..10] of integer;
  i, ans, anspos: integer;
 
begin
  randomize;
  ans := -1;
  for i := 1 to 10 do a[i] := random(MAX_VAL);
  for i := 1 to 10 do 
  begin
    write(a[i], ' ');
    if(a [i] > ans) then begin
      ans := a[i];
      anspos := i;
    end;
  end;
  writeln;
  write(ans, ' ', anspos);
end.