матрица и строки (pascal)

[logys]

1)Дана матрица размером 5Х5 элементов, заполненная случайным образом числами от 10 до 30, определить сколько элементов матрицы равно целое от (МАХ+МИН)/2, где МАХ и МИН это максимальное и минимальное значения среди элементов матрицы.
2)Дана произвольная строка символов. Распечатать все слова с количеством символов больших 4 и меньших 10. Пробелов между словами может быть произвольное количество.
3)Дана произвольная строка символов. Определить самое короткое слово в строке. Выяснить, имеются ли этом слове сдвоенные буквы. Выдать сообщение.

если получится решить то хотя бы с 1 и 3 заранее благодарен

[Alex11223]

И? Покажите ваши наработки, расскажите, что не получается. Либо решу за небольшое вознаграждение вебмани или ЯД (icq слева под ником или ЛС).

[logys]

вот к первой
var a:array[1..5,1..5] of integer;
var i,j,max,min,p,z,k:integer;
Begin
for i:= 1 to 5 do begin
fot j:= 1 to 5 do
a[i,j]:= random(31)+10; (вот здесь не уверен)
write (a[i,j]:2,' ');
end;
for i:= 1 to 5 do
fot j:= 1 to 5 do
if a[i,j]>max then begin
max:=a[i,j]; z:= '
end;
write (max); write (z);
for i:= 1 to 5 do
fot j:= 1 to 5 do
if a[i,j]<min then min:=a[i,j]; k:='; end;
writeln(min);
writeln(k);
а дальше не знаю как делать

[Alex11223]

random(31)+10;

Вроде правильно, но забыли randomize где-нибудь в начале программы, чтобы последовательность чисел не повторялась.
Перед циклом где, max и min ищите надо присвоить им значение 1 элемента массива: max:=a[1,1] и аналогично min, иначе Паскаль присвоит им 0.

z:= '
k:='

Это вы что хотели сделать?

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

upd: ой, точнее random(21)+10 надо: получаем число от 0 до 20 и прибавляем к нему 10.

[logys]

k и z походу не нужны а вот здесь "определить сколько элементов матрицы равно целое от (МАХ+МИН)/2 " примерно какую операцию надо выполнить?

[Alex11223]

Опечатка, наверно?

определить сколько элементов матрицы равны целому от (МАХ+МИН)/2

Пройти всю матрицу циклом for и когда найден элемент (if), который равен (max+min) div 2, то +1 к какой-нибудь переменной-счетчику (перед циклом желательно ее обнулить).

[kangreon]

2.

var
  Stroka: string;
  Temp: string;

  i,j: Integer;

begin
  Stroka := 'qwertyuiop      qwef qwertyuiopasd';

  j := Length(Stroka);

  if Stroka[j] <> ' ' then
  begin
    Stroka := Stroka + ' ';
    Inc(j);
  end;

  for i := 1 to j do
    if Stroka[i] = ' ' then
    begin
      if (Length(Temp) >= 4) and (Length(Temp) <= 10) then
      begin
        WriteLn(Temp);
      end;
      Temp := '';
    end
    else
      Temp := Temp + Stroka[i];
end..

И 3:

var
  Stroka: string;
  Temp: string;
  Resultat: string;

  i, j: Integer;

begin
  Stroka := 'qwertyuiop      qweff qwertyuiopasd';

  j := Length(Stroka);

  if Stroka[j] <> ' ' then
  begin
    Stroka := Stroka + ' ';
    Inc(j);
  end;
  
  Resultat := Stroka;

  for i := 1 to j do
    if Stroka[i] = ' ' then
    begin
      if Length(Temp) > 0 then
        if Length(Temp) < Length(Resultat) then
          Resultat := Temp;
      Temp := '';
    end
    else
      Temp := Temp + Stroka[i];
      
  j := Length(Resultat) - 1;
  
  Temp := 'нету';
  
  for i := 1 to j do
    if Resultat[i] = Resultat[i + 1] then
      Temp := 'есть';

  WriteLn('Самое короткое слово: ', Resultat,'. Сдвоенные буквы ', Temp);
end.

[logys]

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

2.

var
  Stroka: string;
  Temp: string;

  i,j: Integer;

begin
  Stroka := 'qwertyuiop      qwef qwertyuiopasd';

  j := Length(Stroka);

  if Stroka[j] <> ' ' then
  begin
    Stroka := Stroka + ' ';
    Inc(j);
  end;

  for i := 1 to j do
    if Stroka[i] = ' ' then
    begin
      if (Length(Temp) >= 4) and (Length(Temp) <= 10) then
      begin
        WriteLn(Temp);
      end;
      Temp := '';
    end
    else
      Temp := Temp + Stroka[i];
end..

благодарю =)

[logys]

Alex11223

А что можете сказать про 3 задачу ?

[Alex11223]

Выше же решение 3 (не знаю насколько верно).