Регистрация
ilinet
18.07.2020 21:26
Информатика
Есть ответ 👍

Можно с 2-6 с решениями,

280
299
Посмотреть ответы 1

Ответы на вопрос:

dimabolnygin
dimabolnygin
4,4(38 оценок)
// 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);

Популярно: Информатика