Решите имеется рисунок в 24-разрядном формате bmp. вычислите, какой объем (кбайт, мбайт) на носителе займет этот рисунок, если экран содержит 600*800 точек
// 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.
