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.