Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program gromov;
- uses CRT;
- var
- r,k,s,a,b,c:integer;
- sk:array[1..3,1..3] of integer;
- begin
- writeln('Press Enter to start entering student grades.');
- readln;
- Clrscr;
- for r:=1 to 3 do
- For k:=1 to 3 do
- Begin
- gotoxy(r*8+1,k*3+3);
- readln(sk[r,k]);
- End;
- for k:=1 to 3 do
- begin
- a:=0;
- for r:=1 to 3 do
- begin
- a:=a+sk[r,k];
- gotoxy(k*8+1,20);
- writeln(a);
- end;
- end;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement