Mit hagytam ki?
program heni;
uses crt;
var a:array[1..100] of integer;
n,i,ossz:integer;
begin
clrscr;
randomize;
n:=100;
ossz:=0;
for i:= 1 to n do
begin
a[i]:=random (-20)+100;
write(a[i]:4);
if a[i]>0 and a[i]<10 then
end;
begin
for i:=1 to n do
begin
if a[i] mod 0=5 then
ossz:=ossz+a[i];
write (a[i]:4);
end;
begin
readln;
end.
Mit hagyhattam ki ?:S
1. Mihez képest? Mi a feladat?
2. Mi nem jó a fenti kódban? Hibaüzenetet kapsz, vagy nem azt csinálja, amit szeretnél?
Ez mi? Mert én csak egy nagy összevisszaságot látok.
Megjegyzés: Mikor tanuljátok meg, hogy egy kódot így illik posztolni a könnyebb átláthatóság miatt...
Ez a pastebines link: /nnDMeXzj
program heni;
uses crt;
var a:array[1..100] of integer;
n,i,ossz:integer;
begin
clrscr;
randomize;
n:=100;
ossz:=0;
for i:= 1 to n do
begin
a[i]:=random (-20)+100;
write(a[i]:4);
if a[i]>0 and a[i]<10 then
<- ide kellene valami amit akkor csinál amikor az if igaz.
end;
begin <---- ez itt minek?
for i:=1 to n do
begin
if a[i] mod 0=5 then
ossz:=ossz+a[i];
write (a[i]:4);
end;
begin <---- ez itt minek?
readln;
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!