Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program atzimes;
- uses CRT;
- var
- n,m,a,b,c,d,f:integer;
- aud:array [1..5] of string;
- atz:array[1..5,1..3] of integer;
- kop: array[1..9] of integer;
- begin
- for m:=1 to 5 do
- begin
- writeln('Ievadi audzekna vardu');
- readln(aud[m]);
- end;
- randomize;
- for m:=1 to 5 do
- for n:=1 to 3 do
- begin
- atz[m,n]:=random(10)+1;
- write;
- end;
- For m:=1 to 5 do
- begin
- writeln;
- write( aud[m]);
- writeln;
- For n:=1 to 3 do
- begin
- write(' - ' ,atz[m,n]);
- end;
- end;
- writeln;
- for d:=1 to 3 do
- Begin
- kop[1]:=atz[1,1];
- kop[2]:=atz[1,2];
- kop[3]:=atz[1,3];
- b:=kop[1]+kop[2]+kop[3];
- kop[4]:=atz[2,1];
- kop[5]:=atz[2,2];
- kop[6]:=atz[2,3];
- c:=kop[4]+kop[5]+kop[6];
- kop[7]:=atz[3,1];
- kop[8]:=atz[3,2];
- kop[9]:=atz[3,3];
- a:=kop[7]+kop[8]+kop[9] ;
- f:=a+b+c;
- end;
- writeln('Videja',f);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement