Advertisement
Varvara_Golovnova

Untitled

Nov 10th, 2024
18
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. var
  2. a : array [1..50,1..50] of longint;
  3. j,i,sum,n,m : longint;
  4. begin
  5. for i:=1 to 5 do
  6. for j:=1 to 5 do
  7. read(a[i,j]);
  8. for i:=1 to 5 do
  9. sum:=sum+a[i,3];
  10. writeln(sum);
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement