const n=4; var a:array[1..n,1..n] of integer; i,j,s:integer; begin for i:=1 to n do for j:=1 to n do readln(a[i,j]); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; s:=0; for i:=1 to n do s:=s a[i,i]; writeln('s = ',s); end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
