скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом

[katya36]

введите текст из 100 литер, удалив повторные вхождения каждой литеры.

а как эту решить? только без множеств- их мы тоже не проходили(

[Sazary]

Greblin

начальные значения максимума равно 0, что некорректо

Ну, это как посмотреть ) Ведь в данном случае берутся положительные числа. Но, соглашусь, что лучше так не делать )

начальное значение минимума вообще по хорошему не определено, ибо переменные-счётчики цикла после выхода из цикла по стандарту не определены :-)

Ну, все-таки так как эти счетчики являются глобальными переменными, то в данном случае такую запись можно допустить ))
Я не думаю, что на первом курсе будут к этому придираться )

[Greblin]

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

Greblin
Я не думаю, что на первом курсе будут к этому придираться )

Ну просто мне на первом курсе за такое незачёт поставят, поэтому и уточнил

[katya36]

у нас прподавательница строгая..ей сложно сдать уже оформила немножко п-своему решенную Вами задачку надеюсь примут....
а про литеры как решить можно без множеств??

[Greblin]

program liters;
var lit: array[char] of boolean;
     ch: char; i: integer;
begin
for ch := Chr(0) to Chr(255) do
  lit[ch] := false;
{начальная установка массива - ещё ничего не было}
for i := 1 to 100 do
  begin
  read(ch);
  if not lit[ch] then begin write(ch); lit[ch] := true end;
  {если такой литеры ещё не встречалось, то выводим её и помечаем, что уже была}
  end;
end;

Ну диапазон массива можно наверно заменить, допустим, на латинские буквы 'a'..'z' и цикл соответственно изменить

[katya36]

и ещё вопрос по задаче на скалярное произведение : как сделать проверку на то, все ли элемены матрицы различны, т.к. условие это требует???