//PascalABC.Net 3.0, сборка 1064 const n=20; var a:array[1..n] of integer; i,imax,imin:integer; s:longint; begin Randomize; Writeln('Исходный ряд значений'); imax:=1; imin:=1; for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' '); if a[i]>a[imax] then imax:=i else if a[i]<a[imin] then imin:=i end; Writeln; if imax>imin then Writeln('Максимальный элемент встретился позже минимального') else begin s:=0; for i:=imax+1 to imin-1 do s:=s+a[i]; Writeln('Сумма элементов между максимальным и минимальным значением ',s) end end.
Тестовое решение: Исходный ряд значений 10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25 Сумма элементов между максимальным и минимальным значением -27
ответ
uses
graphabc;
begin
setwindowwidth(800); //ширина окна
setwindowheight(600); //высота окна
setpenwidth(3);
roundrect(200, 300, 600, 350, 20, 20); //кузов машины
floodfill(400, 320, clnavy);
circle(290, 350, 30); //переднее колесо
floodfill(300, 360, clblack);
circle(510, 350, 30); //заднее колесо
floodfill(520, 360, clblack);
begin
setpenwidth(3);
line(300, 300, 340, 250);
line(340, 250, 470, 250);
line(470, 250, 510, 300);
line(405, 250, 405, 350);
line(510, 300, 510, 320);
line(300, 300, 300, 320);
line(380, 310, 390, 310);
line(480, 310, 490, 310);
line(300, 300, 510, 300);
end;
begin
setpencolor(clgray); //цвет кисти
setpenwidth(15); //размер кисти
circle(510, 350, 10); //заднее колесо
circle(290, 350, 10); //переднее колесо
end;
begin
setpenwidth(3);
setpencolor(clyellow);
circle(100, 100, 30);
floodfill(110, 110, clyellow);
line(140, 120, 200, 150);
line(130, 135, 150, 160);
line(120, 140, 140, 190);
line(105, 145, 110, 170);
line(95, 145, 90, 190);
end;
begin
setpenwidth(20);
setpencolor(clgreen);
line(0, 385, 800, 385);
setpenwidth(3);
setpencolor(clolive);
rectangle(0, 385, 800, 600);
floodfill(110, 390, clolive);
end;
объяснение:
const
n=20;
var
a:array[1..n] of integer;
i,imax,imin:integer;
s:longint;
begin
Randomize;
Writeln('Исходный ряд значений');
imax:=1; imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25; Write(a[i],' ');
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i
end;
Writeln;
if imax>imin then
Writeln('Максимальный элемент встретился позже минимального')
else begin
s:=0;
for i:=imax+1 to imin-1 do s:=s+a[i];
Writeln('Сумма элементов между максимальным и минимальным значением ',s)
end
end.
Тестовое решение:
Исходный ряд значений
10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25
Сумма элементов между максимальным и минимальным значением -27