Var r: array[1..3,1..3] of integer; i,j,n,k,sum: integer; b: array[1..30]of integer; beginrandomize; writeln('исходная матрица: '); for i: =1 to 3 dobeginfor j: =1 to 3 dobeginr[i,j]: =random(15)-5; write(r[i,j]: 3); end; writeln; end; // cумма диагоналиwriteln; for i: =1 to 3 dobeginfor j: =1 to 3 dobeginif i=j then beginwrite(r[i,j]: 3); sum: = sum + r[i,j]; end elsewrite(' ': 3); end; writeln; end; writeln(sum); end.
Спасибо
Ответ дал: Гость
в этой книге ровно 99 неверных утверждений, так как одно утверждеие-то верное.
Ответ дал: Гость
Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer; a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 ); for i : =1 to n do begin x : =xc +round (rc * cos (a *i ) ); y : =yc -round (rc * sin (a *i ) ); circle (x ,y ,ro ); end; end.
Популярные вопросы