Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  má
Language: PASCAL
Code:
PROGRAM     David;
Uses crt;
type tomb:=array[1..10,1..10]of byte;
var i,j:byte;
t:tomb;

procedure feltolt(var x:tomb);
Begin
for i:1 to 10 do
for j:1 to 10 do
x[i,j]:=random(100);
end;

procedure ki;
Begin
 for i:= 1 to 10 do
 for j:= 1 to 10 do
  begin
   gotoxy(i*4,j);
   if t[i,j]mod 2 =0 then
     textcolor=15
   else textcolor=4
   write(t[x,y]);
  end;
end
begin; 
   randomize;
   clrscr;
   feltolt(t);
   ki;
   readln;
end.
                           
Comments: