Решаем задачи Абрамян на Паскале. Array43

Array43. Дан целочисленный массив размера $$N$$, все элементы которого упорядочены (по возрастанию или по убыванию). Найти количество различных элементов в данном массиве.

Решение:

program Array43;
var
  a:array[1..10] of integer;
  N,i,Num:Integer;

begin
  Write('N: ');
  Readln(N);

  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  if N>0 then  Num:=1
  else Num:=0;

  for i:=2 to N do
    if a[i-1]<>a[i] then inc(Num);


  Writeln(Num);
end.

program Array43;

var

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

N,i,Num:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

if N>0 then Num:=1

else Num:=0;

for i:=2 to N do

if a[i-1]<>a[i] then inc(Num);

Writeln(Num);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array43

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ