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