Padėkit - Pascal programa

Reikia pagalbos parašyt programą su masyvais. Pats dar tiek daug nemoku, bet draugui prireikė.

Štai užduotis:

Nustatykite, kiek pasikartojančių elementų yra skaičių sekoje.  Pradiniai duomenys pateikiami faile duom.txt. Pirmoje failo eilutėje įrašytas natūralusis skaičius n(1<=n<=200). Sekančiose n eilučių po vieną eilutėje įrašyti sekos elementai si(-60<=si<=60, i=1, 2, ... , n).Rezulatatas- pasikartojančių elementų skaičius- įrašomas į failą rez.txt.

Būčiau dėkingas, kas išpręstų šiandien :)

Prašau pagelbėkit, kas moka. Prašau :)

Prašau pagelbėkit, kas moka. Prašau :)

"Prašau" į kišenę neįdėsi :D

"Prašau" į kišenę neįdėsi :)

Jei tau tik pinigai, tai neprašau tavęs. Manau atsiras gerų žmonių, kurie pagelbes. :D

Vis dar reikia pagalbos. Prieš sprendžiant, parašykit AŽ, susitarsim kaip atsilyginsiu.

program skaiciuojam_pasikartojimus;
type t_masyvas = array[-60..60] of integer;
var n, i, pasikartojimai, sk: integer;
kart: t_masyvas;
prad, rez: text;
begin
assign(prad, 'duom.txt');
reset(prad);
readln(prad, n);
for i := -60 to 60 do
	kart[i] := 0;
for i := 1 to n do
	begin
		readln(prad, sk);
		kart[sk] := kart[sk] + 1;
	end;
close(prad);

pasikartojimai := 0;
for i := -60 to 60 do
	if kart[i] > 1 then
		pasikartojimai := pasikartojimai + 1;

assign(rez, 'rez.txt');
rewrite(rez);
writeln(rez, pasikartojimai);
close(rez);
end.

Bet nesu tikras, kad teisingai tuos "pasikartojančius elementus" supratau.

Programa apskaičiuoja koks skaičius skirtingų elementų faile pasikartoja daugiau nei vieną kartą. :D

Bet nesu tikras, kad teisingai tuos "pasikartojančius elementus" supratau.

Programa apskaičiuoja koks skaičius skirtingų elementų faile pasikartoja daugiau nei vieną kartą. :D

Labai dėkingas :D

program skaiciuojam_pasikartojimus;
type t_masyvas = array[-60..60] of integer;
var n, i, pasikartojimai, sk: integer;
kart: t_masyvas;
prad, rez: text;
begin
assign(prad, 'duom.txt');
reset(prad);
readln(prad, n);
for i := -60 to 60 do
	kart[i] := 0;
for i := 1 to n do
	begin
		readln(prad, sk);
		kart[sk] := kart[sk] + 1;
	end;
close(prad);

pasikartojimai := 0;
for i := -60 to 60 do
	if kart[i] > 1 then
		pasikartojimai := pasikartojimai + 1;

assign(rez, 'rez.txt');
rewrite(rez);
writeln(rez, pasikartojimai);
close(rez);
end.

 

Bet nesu tikras, kad teisingai tuos "pasikartojančius elementus" supratau.

Programa apskaičiuoja koks skaičius skirtingų elementų faile pasikartoja daugiau nei vieną kartą. :lol:

kodėl masyvą nuo -60 pradedi? labai nesigilinau, bet įdomu pasidarė. visada pats nuo 1 afba 0 darau

Užduoties sąlyga reikalauja rasti skaičius intervale [-60;60]

Iš tokių paskui ir išauga atitinkami halturščikai

Ai, nepamačiau. My bad