Даны целые числа а1,…аn.Для каждого из чисел,входящих в эту последовательность а1,…аn,выяснить,сколько раз оно входит в эту последовательность.Результат представить в виде ряда строк,первая из которых есть а1-k,где k-число вхождений а1 в последовательность а1,…аn.Вторая строка будет иметь вид Ai-m,где Ai-первый по порядку член последовательности,отличный от Ai, а m-число вхождения этого члена в последовательность — Pascal(Паскаль)

uses crt;
var a:array[1..100]of integer;
i,n,kol,ch,j:integer;
begin clrscr;
randomize;
write('n=');
read(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],'  ');
 end;
writeln;
for j:=1 to n do
 begin
  kol:=0;
  ch:=a[j];
  for i:=1 to n do
  if a[i]=ch then inc(kol);
  writeln('element ',ch,' vstrechaetsya ',kol,' raz');
 end;
readkey;
end.

Похожие записи/страницы:

Leave a Comment

77 − 74 =