// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(15,-28,25); a.Println; Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q)); Writeln('Положительных элементов: ',a.Where(t->t>0).Count); var imin:=a.IndexMin; Writeln('Номер минимального элемента- ',imin+1, ', его значение равно ',a[imin]) end.
Пример 4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21 П = -447760579166208000 Положительных элементов: 8 Номер минимального элемента- 7, его значение равно -28
Var i,n,fs,ls: integer; fsz,indf,indl: int64; f: file of integer; begin write('n = '); readln(n); // запись в файл целых чисел assign(f,'input.txt'); rewrite(f); for i:=1 to n do write(f,random(-3000,8000)); close(f); // замена элементов в файле assign(f,'input.txt'); reset(f); fsz:=FileSize(f); indf:=0; for i:=0 to fsz-1 do begin read(f,n); if ((n mod 2)<>0) and (indf=0) then begin indf:=i; fs:=n; end; if (n mod 2)=0 then begin indl:=i; ls:=n; end; end; reset(f); seek(f,indf); write(f,ls); reset(f); seek(f,indl); write(f,fs); close(f); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-28,25); a.Println;
Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
var imin:=a.IndexMin;
Writeln('Номер минимального элемента- ',imin+1,
', его значение равно ',a[imin])
end.
Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28