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

1

Ответы и объяснения

  • oxxid
  • середнячок
2013-11-04T19:25:40+00:00
Program first;
var mas:array[1..5] of integer; i,a,b:integer;
begin
for i:=1 to 5 do
readln(mas[i]);
for i:=1 to 4 do
for j:=2 to 5 do
if mas[i]>mas[j] then
mas[i]:=mas[j];
a:=mas[1]
b:=0;
for i:=1 to 4 do
if a<>mas[i] then
b:=b+1;
writeln('Уникальных чисел в массиве',b);
end.