Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i;
if imin<imax then
for var i:=imin+1 to imax-1 do a[i]:=0
else
for var i:=imax+1 to imin-1 do a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50
Вот, держи
Будут вопросы, обращайся
Текст плохо форматируется, поэтому скину файлом.