Я обычно пользуюсь Paint Tool SAI когда в наличии есть графический планшет. если в руке только компьютерная мышь то можно воспользоваться Photoshop CS 5 или 6
Один раз я с семьей решили поехать в лес. (Суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . И в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.В саду была речка и много деревьев, я прогулялась по саду.И в саду я нашла очки и я посмотрела по сторонам но никого не было. (Потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все )).
// 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.
