// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadAllLines('Pushkin.txt'); Writeln('*** Текст в файле ***',NewLine); a.Println(NewLine); var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min; a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray; WriteLines('Result.txt',a); Writeln(NewLine,'*** Новый файл ***',NewLine); ReadLines('Result.txt').Println(NewLine) end.
Пример:
*** Текст в файле ***
Если жизнь тебя обманет, Не печалься, не сердись! В день уныния смирись: День веселья, верь, настанет.
Сердце в будущем живет; Настоящее уныло: Всё мгновенно, всё пройдет; Что пройдет, то будет мило. (А.С. Пушкин, 1825)
Const N = 4; M = 6; Var A:array[1..N,1..M] of integer; B:array[1..N] of integer; i,j,k:integer; C:real; Begin WriteLn('Введите массив:'); For i:= 1 to N do For j:= 1 to M do Read(A[i,j]); WriteLn; Write('Введите число: ');ReadLn(C); For i:= 1 to N do Begin k:=0; For j:= 1 to M do if C<A[i,j] then k:=k+1; B[i]:=k; End; WriteLn; For i:= 1 to N do Write(B[i],' ') End.
1-Палитра (заливка в простонародье)-заливает построенный объект
2-Компонент-выбирает компоненты для выбранного объекта
Объяснение: