Предмет: Информатика,
автор: Ewenij1699
пожалуйста ... помогите.... очень срочно нужно... помогите решить задачу на Паскале....отсортировать массив из пяти элементов и подсчитать количество уникальных чисел в массиве....заранее спасибо...
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: lizabakshayeva
Предмет: Алгебра,
автор: Аноним
Предмет: Другие предметы,
автор: vpitateleva
Предмет: Обществознание,
автор: настя892
Предмет: Математика,
автор: иркабаева