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.