Контрольная работа по теме массивы

[mishgun1906]

1) Создать двумерный массив случайных чисел A [1..10,1..10]. в каждой строке этого массива найти наибольший элемент и записать его в линейный массив B [1..10]. Вывести оба массива.
2) Определить, сколько разных элементов содержит данный массив.Записать в порядке возрастания порядковые номера равных элементов массива.

[Rififi]

А где решение? Если решения не будет, то получите два.

[mishgun1906]

мне нужно на писать вторую задачу помогите пожалуйста

[Arhangel7]

var
  i2, i:integer;
  znak: set of char;
  mass: array [1..10] of char;
begin
  i2:=0;
  znak:=[];
  for i:=1 to 10 do
  begin
    if not (mass[i] in znak) then
    begin
      inc(I2);
      Include(znak, mass[i]);
    end;
  end;
  if I2>=2 then writeln(inttostr(I2)+' разных элементов содержит данный массив');
  if i2<2 then writeln('данный массив не содержит разных элементов');
end.

это первая половина второго вопроса.

[tmtm]

program pas1;
uses crt;
var
 A: array[1..10] of integer;
 N: integer;
 I, J: integer;
 K1, K2: integer;
 F: boolean;
begin
 write('N=');
 readln(N);
 for I:=1 to N do
  begin
   write('(',I,')=');
   readln(A[I]);
  end;
 K1:=0;
 for I:=1 to N do
 begin
  F:=TRUE;
  for J:=1 to I-1 do
   if A[I]=A[J] then
    begin
      F:=FALSE;
      break;
    end;
  if Not F then
   write(I, ' ')
  else
  begin
   Inc(K1);
   for J:=I+1 to N do
    if A[I]=A[j] then
     begin
      write(I, ' ');
      break;
     end;
  end;
 end;
 writeln;
 writeln('Kol-vo raznykh znachenii: ', K1);
end.

Если правильно понял условие...