if ve andler

[egedenizi]

Merhabalar.
benim böyle bir dizim var a:array[1..20]of integer;
bir de döngüm var.
sorum şu
if (a[1]=5)and(a[2]=5)and(a[3]=5).....20ye kadar yazmak istemiyorum.
bunun bir kolay yolu varmi.Böyle yazılınca programın güzelliği bozuluyor.
tecrübelerinizden faydalanmak istedim teşekkürler.

[husonet]

case kullan



kolay gelsin...

[vedatkaba]

Sen zannedersem and kullandığına göre hepsinin 5 e eşit olması lazım
o zaman bir döngü aç.

Kod: Tümünü seç

var
i,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
if a[i]=5 then
begin
k:=k+1;
end
else
k:=k;
end;
if k=20 ye//////// Şart gerçekleşti.şunu yap değilse bunu yap.
end;