1. Массив из 25 элементов заполнить случайными числами из диапазона [-100..100] и вывести на экран. Найдите элемент массива с максимальной суммой цифр.

2. Массив из 20 элементов заполнить случайными числами из диапазона [1..10] и вывести на экран. Найдите сумму тех элементов, которые равны своим индексам.

1)var  i, max, maxin: smallint;  arr1, arr, sum: array[1..25] of smallint;begin  max := -(MaxSmallInt);  randomize();  for i := 1 to 25 do   begin    arr[i] := Random(-100, 100);    arr1[i]:=arr[i];    write(arr[i], ' ');    while arr[i] <> 0 do    begin      sum[i] := abs(arr[i] mod 10) + sum[i];      arr[i] := arr[i] div 10;      if sum[i] > max then begin      max := sum[i];      maxin:=i;      end;    end;  end;  writeln();  writeln(arr1[maxin]);end.2)var  i, sum: byte;  arr: array[1..20] of byte;begin  sum := 0;  randomize();  for i := 1 to 20 do   begin    arr[i] := random(10);    write(arr[i], ' ');    if arr[i] = i then sum := i + sum;  end;  writeln();  writeln(sum);end.