Программа подсчета числа различных положительных элементов массива

@Svistunov · Регистрация: 22.05.2012

Условие: СП подсчета числа различных положительных элементов ОМ A(Q).

Pascal

var a:array [1..100] of real;
i,n:integer; s:real;
begin
write('N= '); readln(n);
for i:=1 to n do read (a[i]);
s:=0;
for i:=1 to n do
if (a[i]>0) and (a[i]<>a[i+1]) then s:=s+1;
writeln('S= ',s:2:0);
end.

Сделал так, но она проверяет только соседние числа. Что надо добавить?

@Marquis · 22.05.2012, 20:30

Pascal

var a:array[1..10] of integer;
    b:array[1..10] of integer;
    i,j,k,n,s:integer;
begin
write('N= '); readln(n);
for i:=1 to n do read(a[i]);
 
 
for i:=1 to n do
if a[i]>0 then begin s:=0;
for j:=1 to k do
if a[i]=b[j] then s:=1;
if s=0 then begin k:=k+1; b[k]:=a[i]; end;
end;
write('k=',k);
end.

@Svistunov · 22.05.2012, 20:34 **[ТС]**

Marquis, спасиба памог мне ришить задачу в школе пять паставят палюбому все аднакласники абзавидуюца захади в тим фортариес дам шапку какуюнеть

@Svistunov 1 / 1 / 4 Регистрация: 22.05.2012 Сообщений: 37
	22.05.2012, 20:34 [ТС]	3
	Marquis, спасиба памог мне ришить задачу в школе пять паставят палюбому все аднакласники абзавидуюца захади в тим фортариес дам шапку какуюнеть 1

Опции темы