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 :)

• Labs jautājums?
  
• Jā
•  
• Nē

Pirms 12 gadiem

• Tweet