Приди приди в лес собери листья осматри лист выброси лист возьми1 лист принеси листья домой высуши лист
Проще всего через сервис/поиск решения
см. приложение
ответ: x=9.9
Var
a:array[1..20] of integer;
i,n,min,max,s:integer;
begin
randomize;
s:=0;
writeln ('Введи кол-во элементов в массиве');
readln(n);
for i:=1 to n do
a[i]:=random(35)-10;
for i:=1 to n do
if i mod 2 = 0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do
if i mod 2 >0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i];
writeln ('Сумма членов кратных 3 или 5 = ',s);
min:=a[1];
max:=a[1];
for i:=2 to n do begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln ('Максимум=',max);
writeln('Минимум=',min);<span>
end.</span>
1) <span>если введенное значение не соответствует типу заданной переменной
2) введенное значение имеет слишком длинное значение (больше, чем указано в этом поле)
3) </span> <span>Нарушение ссылочной целостности
4) </span><span>Нарушение условий, которые обговариваются в Процедурах в поле или на форме (После обновления, выход, до обновления)</span>