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.
Спасибо
Ответ дал: Гость
в не указан шаг изменения x , допустим он равен 1
var
x,y: real;
begin
x: =1;
while x< =10 do
begin
y: =1/x-5;
writeln(y: 8: 2);
x: =x+1;
end;
end.
Ответ дал: Гость
program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.
Популярные вопросы