:pascal: создать файл f целого типа. вычислить сумму четных компонент файла. увеличить на значение суммы отрицательные компоненты второй половины файла, после этого из файла f удалить минимальную компоненту. исходный и файл после замены распечатать.

// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin   // создание файла   var f: file of integer;   var n: =20; // размер файла   randomize;   rewrite(f,'f.bin');   var b: integer;   loop n do begin       b: =random(-50,50);       write(f,b)       end;   f.close;   // вывод содержимого исходного файла   reset(f,'f.bin');   while not f.eof do print(f.read);   writeln;   // нахождение суммы четных компонент файла   // в связи с двусмысленностью условия считается, что   // понятие четности применяется к значению компоненты.   f.reset;   var s: =f.readelements.where(t-> t.iseven).sum; // -48   // увеличение на значение суммы отрицательных компонент   // второй половины файла   f.seek(f.filesize div 2);   while not f.eof do begin       b: =f.read;       if b< 0 then begin           b+=s;           f.seek(f.filepos-1);           write(f,b)           end       end;   // удаляем минимальную компоненту   f.reset;   var a: =f.readelements.toarray;   var imin: =a.indexmin;   a: =(a? [: imin]+a? [imin+1: ]).toarray;   f.reset;   foreach b in a do write(f,b);   f.truncate;   // вывод содержимого полученного файла   f.reset;   while not f.eof do print(f.read);   writeln;   f.close end. пример -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -47 -42 41 -38 36 26 -2 -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -90 41 -86 36 26 -50 замечание чтобы получить именно такие данные, укажите в программе randomize(3);

Var s,i,n: integer; begin   readln(n); //цикл for   s: =0;   i: =0;   for i: =1 to n do s: =s+i+1;   writeln(s); //цикл while   s: =0;   i: =0;   while i< n do begin         i: =i+1;         s: =s+i+1;   end; writeln(s); //цикл repeat   s: =0;   i: =0;   repeat         i: =i+1;         s: =s+i+1;   until i=n;   writeln(s); end.