// PascalABC.NET 3.2, сборка 1425 от 22.04.2017 // Внимание! Если программа не работает, обновите версию!
function KS(a:array[,] of integer):(integer,integer); begin (var k,var s):=(0,0); for var i:=0 to a.RowCount-1 do for var j:=i to a.ColCount-1 do if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]); Result:=(k,s) end;
begin var a:=MatrRandom(5,5,-50,50); a.Println(4); var r:=KS(a); Writeln('k=',r[0],', Sum=',r[1]); var b:=MatrRandom(8,8,-80,45); b.Println(4); r:=KS(b); Writeln('k=',r[0],', Sum=',r[1]); end.
Var S:string; C:char; i:integer; Begin Write('Введите строку: ');ReadLn(S); Write('Введите символ: ');ReadLn(C); Write('Символ "',C,'" встречается на позициях:'); For i:= 1 to Length(S) do if S[i] = C then Write(' ',i) End.
Пример работы программы:
Введите строку: 12345789654621685798546323312125 Введите символ: 5 Символ "5" встречается на позициях: 5 10 17 21 32
С проверкой:
Var S:string; C:char; i:integer; Begin Write('Введите строку: ');ReadLn(S); Write('Введите символ: ');ReadLn(C); i:=1; While (S[i] <> C)and(i<Length(S)) do i:=i+1; if S[i] = C then Begin Write('Символ "',C,'" встречается на позициях:'); For i:= i to Length(S) do if S[i] = C then Write(' ',i) End else WriteLn('Данный символ в строке не встречается') End.
Пример работы программы:
Введите строку: 12312123 Введите символ: 4 Данный символ в строке не встречается
л+и&и+л=>и&и+л ==
л+и+л=>и+л == и=>и == и