Help! задать случайным образом массив. найти минимальную сумму трёх подряд идущих элементов массива. вывести номер первого элемента из тройки элементов с максимальной суммой.(паскаль) кто может, напишите решение , желательно с комментариями.
Program z; var a:array [1..40] of integer; i,k,max,min,n,x:integer; begin read(n,x); for i:=1 to n do a[i]:=random(x); min:=a[1]+a[2]+a[3]; max:=0; for i:=1 to n-2 do begin if a[i]+a[i+1]+a[i+2]<min then min:=a[i]+a[i+1]+a[i+2]; if a[i]+a[i+1]+a[i+2]>max then begin max:=a[i]+a[i+1]+a[i+2]; k:=i; end; end; write(min,' '); write(k); end. x-максимальное число n-количество элементов в массиве
Program MinMax var a: array [1..100] of real var i, nmin, nmax: integer, min, max: real BEGIN for i := 1 to 100 do read a[i]; // вводим массив min := a[1]; max := a[1]; nmin := 0; nmax := 0; for i := 1 to 100 do begin if a[i] = min then nmin := nmin + 1; if a[i] = max then nmax := nmax + 1; if a[i] < min then begin min = a[i]; nmin := 1; end if a[i] > max then begin max = a[i]; nmax := 1; end end; if nmin > nmax then write ('Min') if nmin < nmax then write ('Max') if nmin = nmax then write ('Ravno') END.
var a:array [1..40] of integer;
i,k,max,min,n,x:integer;
begin
read(n,x);
for i:=1 to n do
a[i]:=random(x);
min:=a[1]+a[2]+a[3];
max:=0;
for i:=1 to n-2 do
begin
if a[i]+a[i+1]+a[i+2]<min then
min:=a[i]+a[i+1]+a[i+2];
if a[i]+a[i+1]+a[i+2]>max then
begin
max:=a[i]+a[i+1]+a[i+2];
k:=i;
end;
end;
write(min,' ');
write(k);
end.
x-максимальное число n-количество элементов в массиве