1) Элемент окна программы MS Excel, используемый для ввода и редактирования содержимого активной ячейки или содержащейся в ней формулы, называется: а) строкой состояния б) строкой формул в) лентой г) строкой заголовка
Const n = 50; // количество чиселvar k: array [1..n] of integer; i, j, n1, n2, minr, a, b: integer; begin writeln(n, ' ', ': d'); a : = random(1000); b : = random(1000); minr : = 10000; for i : = 1 to n do k[i] : = a + random(b); for i : = 1 to n do for j : = 1 to n do if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then begin minr : = abs(k[i] - k[j]); n1 : = i; n2 : = j; end; writeln(n1, ' ', n2); end.
//PascalABC.NET 3.1 сборка 1200 begin var n := ReadInteger('n='); var a := MatrixRandom(n, n, -10, 10); println(a);
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do if a[i, a.GetLowerBound(1)] < 0 then begin var s1 := 0; var s2 := 0; var s3 := 0; for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do if i < j then s1 += a[i, j] else if i = j then s2 += a[i, j] else if i > j then s3 += a[i, j]; writeln(i + ': ' + s1 + ', ' + s2 + ', ' + s3); end; end.
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, -10, 10);
println(a);
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
if a[i, a.GetLowerBound(1)] < 0 then begin
var s1 := 0;
var s2 := 0;
var s3 := 0;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
if i < j then s1 += a[i, j]
else if i = j then s2 += a[i, j]
else if i > j then s3 += a[i, j];
writeln(i + ': ' + s1 + ', ' + s2 + ', ' + s3);
end;
end.