Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.
Кажется понял в чем проблема.У вас не работало т,к, отсутствовали begin и end; в case .Плюс еще пару недочетов в коде
1) зайти в пункт меню файл
2) выбрать пункт "Сохранить"
3) выбрать по навигации папку, в которую нужно сохранить
4) дать имя файлу
5) нажать кнопку "Сохранить"
// PascalABC.Net 3.0, сборка 1066
begin
var M:=SeqRandom(15,-25,25).ToArray;
Writeln('Исходный массив М: ',M);
Writeln('Разность максимального и первого элементов: ',M.Max-M[0])
end.
<em><u>Тестовое решение:</u></em>
Исходный массив М: [1,-15,24,-14,-3,16,9,-16,5,9,11,19,12,18,-21]
Разность максимального и первого элементов: 23