Исправте ошибку в коде. Паскаль. Двумерные массивы.

[anna_]

Задание:
Найти максимальный из неповторяющихся (встречающихся только один раз) элементов двухмерного массива.

program  task;
uses crt;
var A:array[1..10,1..10] of integer;
k,f,s,p,g,N,M,i,j:integer;
max:real;
begin
clrscr;
writeln('razmernost massiva:');
write('N = ');
readln(N);
write('M = ');
readln(M);
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
for i:=1 to N-1 do
for j:=1 to M-1 do
begin
for f:=i+1 to n do
for g:=j+1 to n do
begin
if a[i,j]<>a[f,g] then
begin
max:=A[1,1];
s:=1;
p:=1;
for i:=1 to N do
for j:=1 to M do
if A[i,j]>max then begin
max:=A[i,j];
s:=i;
p:=j;
end;
end;
end;
end;
writeln('max iz nepovtor. A[',s,',',p,'] = ',A[s,p]);
readln;
end.

Пожалуйста проверьте, подскажите что не так. Ведь максимальный элемент он находит, вот только не видит что он повторяющийся

[Kopwyh]

Ну, я вижу одну ошибку.
Внутри цикла по i и j запускаешь другой цикл по этим же переменным.
Чего делать строго воспрещается.

[anna_]

тогда подскажите как заставить программу убедится что в массиве нет повторяющихся элементов

[anna_]

Вот еще пожалуйста проверьте

Задание:
Решить задачу: удалить из строки гласные русские буквы, подсчитав количество удалений.

program task;
uses crt;
var s:string;
t,i:integer;
begin
clrscr;
writeln('Vvedite stroku: ');
readln(s);
i:=1;
t:=0;
while i<=length(s) do
begin
if ((s[i]='a') or (s[i]='e') or (s[i]='i') or (s[i]='o') or (s[i]='u') or (s[i]='y'))
or ((s[i]='A') or (s[i]='E') or (s[i]='I') or (s[i]='O') or (s[i]='U') or (s[i]='Y'))
then begin delete(s,i,1);
t:=t+1;
end;
i:=i+1;
end;
writeln('poluchennaya stroka:');
writeln(s);
writeln('kol-vo udaleniy: ',t);
readln;
end.

Программа почти работает как надо, (вводим abcde получаем bcd), но если ввести рядом 2 гласные буквы, то удалится только одна. Как исправить?

[Alex_FF]

вот правильное решение:

const
  A = ['A', 'U', 'O', 'I', 'E'];
var
  S: String;
  I, N, Len: Integer;
begin
  ReadLn(S);
  I := 1;
  N := 0;
  Len := Length(S);
  while I <= Len do
  begin
    if Upcase(S[I]) in A then
    begin
      Delete(S, I, 1);
      Inc(N);
      Dec(Len);
      Continue;
    end;
    Inc(I);
  end;
  WriteLn(S);
  WriteLn(N);
  ReadLn;
  ReadLn;
end.

[anna_]

спасибо! а с первым можно что нить сделать??

[Alex_FF]

1)

const
  Len = 100;
var
  a: Array[1..Len, 1..Len] of Integer;
  N, M, I, J, K, L, Max, X, Y: Integer;
  F, F2: Boolean;
begin
  Write('Введите N, M');
  ReadLn(N, M);
  WriteLn('Введите массив');
  for I := 1 to N do
    for J := 1 to M do
      Read(a[I, J]);
  F2 := False;
  Max := Low(Max);
  for I := 1 to N do
    for J := 1 to M do
    begin
      F := False;
      for K := 1 to N do
        for L := 1 to M do
          if (a[I, J] = a[K, L]) and ((I <> K) or (J <> L)) then
            F := True;
      if (Max < a[I, J]) and (not F) then
      begin
        Max := a[I, J];
        X := I;
        Y := J;
        F2 := True;
      end;
    end;
  if not F2 then
    WriteLn('Все элементы повторяются')
  else
    WriteLn('Max = a[', X, ', ', Y, '] = ', Max);
  ReadLn;
  ReadLn;
end.

[anna_]

спасибо огромное!))