Определить, сколько строк массива имеют максимальное число пробелов

[vaako]

Определить, сколько строк массива имеют максимальное число пробелов

[Serge_Bliznykov]

нужно в цикле пройтись по строчкам, для каждой посчитать количество пробелов.
если число пробелов равно максимальному значению увеличить счётчик.
примерно так.

[vaako]

Сообщение от Serge_Bliznykov

нужно в цикле пройтись по строчкам, для каждой посчитать количество пробелов.
если число пробелов равно максимальному значению увеличить счётчик.
примерно так.

я пробовал писать ничего не выходит можешь код полностью написать

[VIK_aka_TOR]

  index := 0;
  for i:=1 to length(s) do
  if s[i] = ' ' then
    inc(index); // index := index + 1;

это для одной строки... с массивом думаю сами разберетесь... количество пробелов находится в переменной index.

хотите большего... выкладывайте наработки... подправим ваше решение...

[vaako]

Сообщение от VIK_aka_TOR

  index := 0;
  for i:=1 to length(s) do
  if s[i] = ' ' then
    inc(index); // index := index + 1;

это для одной строки... с массивом думаю сами разберетесь... количество пробелов находится в переменной index.

хотите большего... выкладывайте наработки... подправим ваше решение...

вот я пробывал

program zada4a;
var n,i,j,b,m,max,i1:integer;
a:array [1..100,1..100] of integer;
begin
randomize;
//{writeln ('введите количество строк матрицы');
//readln (n);
//writeln ('введите количество столбцов матрицы');
//readln (m); }

begin
//writeln ('введите n m' );
//readln (n,m);
for i:=1 to n do
for j:=1 to m do
begin
readln (a [i,j]);
begin
for j:=1 to n do
begin
end;
for i:=1 to n do
for j:=1 to m do
begin
max:=0;
for i1:=1 to length (a[i,j]) do
if mas[i,j][i1] = ' ' then k1:=k1+1;
writeln ('количество пробелов =',k1);
if k1>max then max:=k1;
for j:=1 to n do
begin
write (max);
end;
writeln;
end;
end.

[VIK_aka_TOR]

можно как вариант так... но искать в числовом массиве пробелы... как то нелепо...

program zada4a;
var n,i,max,m,j, index, kol:integer;
a:array [1..10,1..10] of char;

begin
write('Введите размерность матрицы: ');
readln(m,n);
for i:=1 to m do
for j := 1 to n do
  begin
    write('a[',i:2,',',j:2,'] =');
    readln(a[i,j]);
  end;
  // ищем максимальное количество
  max := 0;
  kol := 0;
for i:= 1 to m do
  begin
  index := 0;
    for j:=1 to n do
      if a[i,j] = ' ' then
        index := index +1;
     if index = max then 
        kol := kol +1;
     if index > max then
        begin
          kol := 1;
          max := index;
        end;

  end; 
  writeln(kol, ' строк имеют максимальное количество пробелов, ', max);
end.

[vaako]

Сообщение от VIK_aka_TOR

можно как вариант так... но искать в числовом массиве пробелы... как то нелепо...

program zada4a;
var n,i,max,m,j, index, kol:integer;
a:array [1..10,1..10] of char;

begin
write('Введите размерность матрицы: ');
readln(m,n);
for i:=1 to m do
for j := 1 to n do
  begin
    write('a[',i:2,',',j:2,'] =');
    readln(a[i,j]);
  end;
  // ищем максимальное количество
  max := 0;
  kol := 0;
for i:= 1 to m do
  begin
  index := 0;
    for j:=1 to n do
      if a[i,j] = ' ' then
        index := index +1;
     if index = max then 
        kol := kol +1;
     if index > max then
        begin
          kol := 1;
          max := index;
        end;

  end; 
  writeln(kol, ' строк имеют максимальное количество пробелов, ', max);
end.

можно это как нибудь без index сделать?

[vaako]

Сообщение от vaako

можно это как нибудь без index сделать?

вроде таво как я написал ток чтоб это работало

[VIK_aka_TOR]

замените index другой переменной.. а то что у вас... не воспринимается моей логикой... да и вашим компилятором... да и переменных пару штук не объявленых у вас... так что... либо разберяйтесь со своей прогой и учите теорию... либо попытайтесь воспринять то что я написал...