Temat jest zamknięty
Program działa, tylko teraz mam problem, co zastosować, żeby program wyświetlał ilość tych znaków. ?
W tym wypadku będzie to '@' i '#'
Kod źródłowy:
CODE-BOX
uses crt;
Var
i, j : byte;
Z1, Z2: CHAR;
znaki : array [1..10 , 1..10] OF CHAR;
Begin
ClrScr;
randomize;
Z1:= '@';
Z2:= '#';
For i:= 1 to 10 do
for j:= 1 to 10 do
if random (2) = 0 then znaki [i,j]:=z1
else znaki [i,j]:=z2;
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
write (znaki[i,j]);
WriteLn;
End;
ReadLn;
End.
