Паскаль. Составьте программу подсчета числа различных составных элементов массива А (Т, Т).

Question

Информатика

Максима

25 января, 11:43

Паскаль. Составьте программу подсчета числа различных составных элементов массива А (Т, Т).

+4

Ответы (1)

Знаешь ответ?

Елизар · Answer 1

Vara: array [1 ... 10] of integer;

b:string;

c, i:integer;

begin

Randomize;

for i:=1 to 10 do begin

a[i]:=Random (5);

write (a[i]);

end;

b:='';

c:=0;

for i:=1 to 10 do

if (pos (inttostr (a[i]), b) = 0) then begin b:=b+inttostr (a[i]); inc (c); end;

writeln (c);

end.

//ABC Pascal