Решите пожалуйста задачу на Паскале

[Bagsi]

1.
const n=50;
var x:array[1..n] of integer; k:integer;
Подсчитать k-число различных элементов в массиве x.

[_Dmitry]

const
  n = 50;
var
  x,x0: array[1..n] of integer;
  k,i,j: integer;
  ind: boolean;
begin
  randomize;
  for i:=1 to n do
    x[i]:=random(50);
  k:=1;
  x0[1]:=x[1];
  for i:=1 to n do
    begin
      ind:=true;
      for j:=1 to k do
        if x[i] = x0[j] then
          begin
            ind:=not ind;
            break;
          end;
      if ind then
        begin
          k:=k+1;
          x0[k]:=x[i];
        end;
    end;
  writeln(k);
end.

Несовпадающие элементы копируются в массив x0, k - размер этого массива

[puporev]

Смотри следующий пост.

[puporev]

Обычно в таких задачах не разрешается использовать дополнительные массивы. Поэтому предлагаю другое решение. Смотри вложение.
Будут вопросы, пиши в этом же раэделе.

[Cantana]

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

Обычно в таких задачах не разрешается использовать дополнительные массивы. Поэтому предлагаю другое решение. Смотри вложение.
Будут вопросы, пиши в этом же раэделе.

а нельзя

в выде кода

[puporev]

Вот этот код. Код рабочий, проверял. Если вдруг не работает, значит где-то опечатка.

program name;
uses crt;
const n=50;
var
   a:array[1..n]of integer;
begin
  clrscr;
  randomize;
СОЗДАЕМ МАССИВ
  writeln('Заданный массив');
  for i=1 to n do
    begin
       a[i]:=random(20)-10;
    end;
  for i:=1 to n do           
    write(a[i],' ');
    readln;
  writeln;
СОРТИРУЕМ МАССИВ ПО ВОЗРАСТАНИЮ
  writeln(('Отсортированный массив');
  for i:=1 to n-1 do
     begin
       for j:=1 to n-1 do
          if a[j]>a[j+1] then
             begin
               x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x;
             end;
     end;   
   for i:=1 to n do
    writeln(a[i]); 
    readln;
   writeln;
СЧИТАЕМ КОЛИЧЕСТВО РАЗНЫХ ЭЛЕМЕНТОВ
   for i:=1 to n do
      begin
         k:=0;
         for j:=1 to n do
           if a[j]<>a[j+1] then
              begin
                k:=k+1;
              end;
      end;
    writeln('Количество разных элементов = ',k); 
    readln;
end;

[Bagsi]

Спасибо большое

[Alfons]

Напишите пожалуйста поподробнее где и как
1_)СОЗДАЕМ МАССИВ
2_)СОРТИРУЕМ МАССИВ ПО ВОЗРАСТАНИЮ
3_)СЧИТАЕМ КОЛИЧЕСТВО РАЗНЫХ ЭЛЕМЕНТОВ
Что там надо писать и заполнять?
Объясните как это сделать!!!

[miron]

Решите пожалуйста задачу на Паскале
1.Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой.
2.В каких двузначных числах удвоенная сумма цифр равна их произведению?

[SNUPY]

Ух вспомним былое...)))
1)

Var
  S:string;
  m,n:char;
  i:integer;
begin
  s:='blasblad';
  m:=s[length(s)]
  for i:=1 to Length(s)-1 do
  begin
     n:=s[i];
     s[i]:=m;
     m:=n;
  end;
end.

2)

var i,i1,i2:Byte;//можно и Integer
begin
  For i:=10 to 99 do
  begin
     i1:=i div 10;
     i2:=i mod 10;
     if (i1+i2)*2 =i1*i2 then writeln(i);
  end; 
end.

Принцип таков но не проверял(