uses Crt; const n=20; type Mas=array [1..n, 1..n] of integer; var A: Mas; i,k, Sum: integer; begin ClrScr; Sum:=0; for i:=1 to n do begin for k:=1 to n do begin if i>k then begin A[i,k]:=1; Sum:=Sum+A[i,k]; end else begin A[i,k] :=-1; Sum:=Sum+A[i,k]; end; Write(A[i,k]:3); end; WriteLn; end; WriteLn; WriteLn(' Sum = ',Sum); ReadLn; end.
Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов. Если n=20, то Sum = -20 Если n = 100, то Sum = - 100 ПРАВИЛЬНЫЙ ОТВЕТ: 3) - 100
uses Crt; const n=20; type Mas=array [1..n, 1..n] of integer; var A: Mas; i,k, Sum: integer; begin ClrScr; Sum:=0; for i:=1 to n do begin for k:=1 to n do begin if i>k then begin A[i,k]:=1; Sum:=Sum+A[i,k]; end else begin A[i,k] :=-1; Sum:=Sum+A[i,k]; end; Write(A[i,k]:3); end; WriteLn; end; WriteLn; WriteLn(' Sum = ',Sum); ReadLn; end.
Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов. Если n=20, то Sum = -20 Если n = 100, то Sum = - 100 ПРАВИЛЬНЫЙ ОТВЕТ: 3) - 100
var
x, y: integer;
begin
Write('Введите x: ');
readln(x);
y:=sqr(x)+3;
writeln('y=' + y);
end.