Program gt; var a:array[1..100]of integer; n,i,p:integer; begin read(n); {n-кол-во чисел в массиве} p:=1; for i:=1 to n do begin read(a[i]); {a[i]-элементы массивва} if(a[i]<0)then p:=p*a[i]; {p-произведение отрицательных элементов массива} end; writeln(p); end.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
type tL=List<integer>;
function Avg(L:tL):=L.Average;
function Cont(L:tL; e:integer):=L.Contains(e);
function Occurs(L:tL; e:integer):=L.Where(t->t=e).Count;
begin var MyList:=Lst(3,8,12,5,16,9,5,-2,7,0,5,-1); MyList.Println; Writeln('Среднее равно ',Avg(MyList):0:3); var k:=ReadInteger('Введите элемент для поиска:'); Writeln('Есть ли такой элемент в списке? ',Cont(MyList,k)); Writeln('Количество таких элементов равно ',Occurs(MyList,k)) end.
Пример 3 8 12 5 16 9 5 -2 7 0 5 -1 Среднее равно 5.583 Введите элемент для поиска: 5 Есть ли такой элемент в списке? True Количество таких элементов равно 3
Var max, //максимальный элемент min, //минимальный элемент sum, //сумма всех чисел n, //количество чисел j: integer; Begin write('Введите количество чисел: '); readln(n); write('Введите числа: '); readln(j); max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно for var i:=2 to n do begin readln(j); if(j > max) then max:=j else if(j < min) then min:=j; sum:= sum+j; end; sum:= round(sum/n)*min-max; //результирующая формула if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0 else writeln('Результат: ', sum); End.
var a:array[1..100]of integer;
n,i,p:integer;
begin
read(n);
{n-кол-во чисел в массиве}
p:=1;
for i:=1 to n do
begin
read(a[i]);
{a[i]-элементы массивва}
if(a[i]<0)then p:=p*a[i];
{p-произведение отрицательных элементов массива}
end;
writeln(p);
end.