Помогите решить

[ann55]

Помогите решить

Pascal

1.Найти количество различных элементов в массиве.

2.Используя датчик случайных чисел, заполнить массив из двадцати элементов неповторяющимися числами.

Заранее спасибо!:tehnari_ru_942:

 

[Léon1]

Ну и когда будете учиться? Задачи же легкие!

 

[ann55]

Я знаю, что легкие. Просто у меня их очень много, а сама я все не успеваю.

 

[Gruvi]

Используя датчик случайных чисел - это как?

 

[Gruvi]

Задача № 2. Используя генератор случайных чисел, заполнить массив из не повторяющимися числами.

uses Crt;
const MAX=20;
var
a :array[1..MAX] of byte;
b :array[1..MAX+5] of byte;
i :byte;
Asc :boolean;

begin
ClrScr;
randomize;
For i:=1 to 20 do begin
Asc:=False;
repeat
a:=random(MAX+6);
if (b[a]=0) and (a>0) and (a<MAX+6) then begin
b[a]:=1;
Asc:=True;
end;
until Asc;
end;
for i:=1 to 20 do Write (a,' ');
Writeln;
ReadKey;
end.

Задача № 1. Найти количество различных элементов в массиве.

uses crt;
const n = 10;
var mas : array [1..n] of string;
i, j, num : integer;
begin
clrscr;
writeln('Введите массив:');
for i := 1 to n do
begin
write('m[',i,'] = '); readln(mas);
end;
for i := 1 to n - 1 do
for j := i + 1 to n do
if (mas = mas[j]) then mas := 'duplicate';
writeln('Результат:');
for i := 1 to n do
if mas <> 'duplicate' then inc(num);
writeln('В массиве ',num,' различных элементов:');
for i := 1 to n do
if mas <> 'duplicate' then write(mas,' ');
writeln;
readkey;
end.