Var J: Array[1..32,1..32] Of Integer; i, j, S: Integer; Begin //заводим массив For i:=1 to 32 do For j:=1 to 32 do begin Writeln("Введите J[",i,",",j,"]"); Readln(J[i,j]); End; //Сумма всех чисел S:=0; For i:=1 to 32 do For j:=1 to 32 do S:=S +J[i,j]; Writeln("Сумма всех чисел = ",S); S = 0; //Минимальное четное число For i:=1 to 32 do For j:=1 to 32 do If (J[i,j] mod 2 = 0) And (J[i,j]<S) Then S:= J[i,j];
Writeln("Минимальное четное число = ",S); S:=0; //кол-во отрицательных нечетных чисел For i:=1 to 32 do For j:=1 to 32 do If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+1; Writeln("кол-во отрицательных нечетных чисел = ",S); S:=0; //сумма отрицательных нечетных чисел For i:=1 to 32 do For j:=1 to 32 do If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+J[i,j]; Writeln("сумма отрицательных нечетных чисел = ",S); End;
procedure GetWord(s: string; var ib: integer; var pWord: string; var l: integer); // Возвращает слово pWord, которое является подстрокой s // Разделителем слов являются один или более символов из delim. // ib при вызове процедуры указывает на позицию в строке s, // начиная с которой ведется поиск слова. // При выходе из процедуры ib - позиция начала найденного слова, // l- длина найденного слова, l=0 если слово не найдено. var i, n: integer; w: string; begin n := Length(s); l := 0; w := ''; if ib >= n then begin ib := n; pWord := '' end else begin i := ib; while (s[i] in delim) and (i < n) do i := i + 1; ib := i; w := ''; while (not (s[i] in delim)) and (i < n) do begin w := w + s[i]; i := i + 1 end; if i < n then begin l := i - ib; pWord := w end else begin l := i - ib + 1; pWord := w + s[n] end end end;
var w, x, a: string; n, k, i: integer;
begin write('Введите длину искомых слов n: '); readln(n); writeln('Введите строку с искомыми словами (где искать):'); readln(a); writeln('Введите строку с шаблоном поиска (что искать):'); readln(x); writeln('Результаты поиска:'); i := 1; repeat GetWord(a, i, w, k); if k = n then begin if Pos(w, x) > 0 then writeln(w); end; i := i + k until k = 0; end.
Тестовое решение:
Введите длину искомых слов n: 4 Введите строку с искомыми словами (где искать): Мама мыла раму, Маша мыла полы, а Таня не мыла ничего! Введите строку с шаблоном поиска (что искать): Даша перемыла всю посуду. Результаты поиска: мыла мыла мыла
//PascalABC.NET v3.3 1633
begin
var path:='C:\file.txt'; // вместо C:\file.txt напечатать путь до своего файла
var text:=ReadAllText(path);
writeln(text);
end.