массив это упорядоченный набор данных одного типа, снабженных индексами.
максимальная разность двух элементов достигается тогда, когда один максимален, а другой минимален. значит задача сводится к нахождению максимального и минимального элементов массива и нахождении их разности.
<имя массива>(<индекс>) А(10) [b;e]
e-b наибольшая разность двух чисел
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>begin
var (v1,v2,t):=(60,15,2);
Writeln('Расстояние равно ',(v1+v2)*t,' км')
end.
<u>Результат</u>Расстояние равно 150 км
Ну в первой все просто по очереди выполняется, сначала х=3*3; затем
итоговый ответ 729.
со второй задачкой не совсем уверен, блок с кружком это инверсия?
Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('Ответ: ',p);
<span>end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('Ответ: ',p);
<span>end.</span></span>