Uzdod jautājumus un saņem atbildes! Šobrīd 66748 jautājumi, 283106 atbildes!

Kāds ir tavs jautājums?

140

       

Liene Gedvarde

+1676

 
  • 1

    Atbilde

  • 0 balsis
  • 540 skatījumi

Jautājums tiem, kas saprot PASCAL.

Datori un internets » Programmēšana un dizains

Jā, šis ir mājasdarbs, bet man nepieciešama palīdzība.
Mājasdarba nosacījums - Ja dotajā masīvā ir kaut viens elements mazāks par -5, tad visus negatīvos elementus aizvietot ar to kvadrātiem.

Šis varētu būt kaut kas līdzīgs, manuprāt:

PROGRAM p4_4;
Uses Crt;
var A: array[1..100] of integer;
i: integer;
k: integer;
BEGIN
ClrScr;
Randomize;
writeln('masivs no dazadiem elementiem'); writeln;
For i:=1 to 100 do
begin
a[i]:=Random(2);
write(a[i])
end;
writeln; writeln;
writeln('masivs, kuraa, ja kaut viens elements mazaks par -5, tad visus negativos elementus aizvietot ar kvadratu'); writeln;
For i:=1 to 100 do
begin
a[i]:=1-a[i];
write(a[i])
end;
readkey
END.

Cik noprotu, jāmaina pēdējā daļa, lai atbilstu uzdevuma nosacījumiem.
a[i]:=1-a[i];
write(a[i])

ceru, ka kāds varēs izpalīdzēt :)

Pirms 7 gadiem

 

Atbildes (1)

 
Labākā atbilde
  • 0

    balsis

Niks

+120890

 
Kaut kas par masīviem ir, bet
1) 'ģenerētajā masīvā nevar būt negatīvu skaitļu;
2) nekur neredzu tādu meklēšanu;
3) nekur neredzu aizvietošanu ar kvadrātiem';
...
Manuprāt jāsāk ar gadījumskaitļu funkcijas darbības izprašanu un masīvs jāģenerē vienā ciklā

pirms 7 gadiem  

500

Tava atbilde

1000

       

Nav nepieciešams reģistrēties!

Ienāc iekšā izmantojot:

       

Meklēt jautājumus

       

Palīdzi saviem klientiem saņemt vislabākās atbildes

Kļūstot par ekspertu pajauta.lv, Tu uzlabo savu klientu servisu un iegūsti papildus publicitāti. Tavas atbildes būs atrodamas 100 tūkstošiem pajauta.lv lietotāju, lieliski atradīs Google, kā arī varēsi izveidot savās web lapās vai draugiem.lv lapā īpašo pajauta.lv bloku.