Помогите плиз решить 2 задачи на массивы в паскале.
1) Задайте массив из 10 элементов (рандом). Найдите сумму индексов элементов, которые больше среднего арифметического. Выведите исходный массив и полученную сумму.
2) Задайте массив из 10 элементов (также рандомно) и найдите разность наибольшего и первого элементов. Выведите исходный массив и полученную разность.
var
arr: array[1..10] of integer;
i, sum, sumI: integer;
begin
for i:=1 to 10 do begin
arr[i]:=random(15);
inc(sum, arr[i]);
write(arr[i],' ');
end;
writeln;
writeln('Среднее арифметическое: ',sum/10);
for i:=1 to 10 do
if arr[i] > sum/10 then
inc(sumI, i);
writeln('Сумма индексов элементов: ', sumI);
end.
-----------------------
var
arr: array[1..10] of integer;
max, i: integer;
begin
max:=-maxint;
for i:=1 to 10 do begin
arr[i]:=random(15);
write(arr[i], ' ');
if arr[i] > max
then max:=arr[i];
end;
writeln;
writeln('Первый элемент - ',arr[1]);
writeln('Максимальный элемент - ',max);
writeln('Разность - ',arr[1]-max);
end.
⇢