Var s: string; i, count: integer; begin write('Введите текст: '); readln(s); for i := 1 to length(s) do if(s[i] <> ' ') then inc(count); writeln('Кол-во символов: ', count); <span>end.</span>
Var mj,max,i,j,m,n:integer; mas:array[1..999,1..999] of integer;
begin randomize; readln(m,n); for i:=1 to m do for j:=1 to n do read(mas[i,j]); for i:=1 to m do begin mj:=-maxint; max:=-maxint; for j:=1 to n do if mas[i,j] > max then begin mj:=j; max:=mas[i,j]; end; writeln('[',i,';',mj,'] = ',max); end; end.