Несколько простых задачек на tp

[cL1zMa]

Помогите пожалуйста. Задания надо сделать как можно быстрее, ибо будут проблемы в вузе. Прошу помощи.

1. Дано натуральное число n. Проверить, будут ли все цифры числа различными.

2. Дана последовательность натуральных чисел а1, а2, … аn. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение о данном факте.

3. Даны действительные числа a1, a2, … , an. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа (|ai| > max{a1, a2, … , an}).

4. Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности.

[KORT]

Вот 2 задача:

 
USES CRT;
var
X,y:array [1..16] of byte;
i:byte;
Begin
CLRSCR;
Randomize;
Write('Последовательность: ');
For i:=1 to 16 do
X[i]:= random (40);
For i:=1 to 16 do
Write (X[i],' ');
Writeln;
write('Четные: ');
For i:=1 to 16 do
If X[i] mod 2=0 then
begin
write(x[i],' ');
end;
Readkey;
end.

[KORT]

(замени целый тип данных на действительный)

 
USES CRT;
var
X,y:array [1..16] of integer;
i,max,maxi:integer;
Begin
CLRSCR;
Randomize;
Write('последовательность: ');
For i:=1 to 16 do
X[i]:= random (20)-10;
For i:=1 to 16 do
Write (X[i],' ');
Writeln;
For i:=1 to 16 do
if x[i]>max then
max:=x[i];
write('маскимальное число ',max);
writeln;
writeln('замена: ');
maxi:=abs(x[i]);
For i:=1 to 16 do
If max<abs(x[i]) then
begin
maxi:=x[i];
maxi:=0;
y[i]:=maxi;
writeln(' число ',x[i],' заменено на ',y[i],' ');
end;
Readkey;
end.

[cL1zMa]

Спасибо. 1 и 4 задачки ещё актуальны.

[ATL]

1. Дано натуральное число n. Проверить, будут ли все цифры числа различными.

Нужно циклом for пройтись по каждому числу и проверить равно ли одно другому.
Примерно так:

temp:=length (number);
for i:=1 to temp do
begin
if (number[i] > number[i+1]) or (number[i] < number[i+1] then
result:=result+1
else
halt;
end;

[RSLoader]

Вот четвёртая:

var
  a:array[1..100]of integer;
  i,j,k,n:integer;
  b:boolean;
begin
  write('Vvedite dlinu posledovatelnosti: ');
  readln(n);
  write('Vvedite posledovatelnost: ');
  for i:=1 to n do read(a[i]);
  readln;
  k:=1;
  for i:=1 to n-1 do
  begin
    b:=false;
    for j:=i+1 to n do
    if a[j]=a[i] then b:=true;
    if not b then inc(k);
  end;
  writeln('Raznih 4isel: ',k);
  readln;
end.

[cL1zMa]

Спасибо всем за помощь!