//Pascal //1) var A: array[1..5, 1..8] of integer; i, j: byte; sumR, sumC: integer; begin randomize; writeln('Исходный массив':28); for i := 1 to 5 do begin for j := 1 to 8 do begin A[i, j] := random(61)-30; write(A[i,j]:5); if i = 3 then sumR := sumR + A[i, j]; if j = 5 then sumC := sumC + A[i, j]; end; writeln; end; writeln('Сумма элементов 5 столбца = ', sumC); writeln('Сумма элементов 3 строки = ', sumR); end.
//2) var A: array[1..5, 1..8] of integer; i, j: byte; sumA, sumB, countV, countG: integer; begin randomize; writeln('Исходный массив':28); for i := 1 to 5 do begin for j := 1 to 8 do begin A[i, j] := random(300)-150; write(A[i,j]:5); if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j]; if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j]; if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1; if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1; end; writeln; end; writeln('Сумма отрицательных 5 строки = ', sumA); writeln('Сумма меньших 100 4-ого столбца = ', sumB); writeln('Количество меньших 5 4-ой строки = ', countV); writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG); end.
Полное имя файла (включая расширение) в Windows может содержать до 260 символов, данное значение определено константой MAX_PATH в Windows API; например, полное имя файла максимально допустимой длины на диске C будет таким: «C:\<256 символов>NULL» (например, «C:\<254 символа>\<1 символ>NULL»). Однако, юникодовые версии некоторых функций позволяют использовать полные имена файлов длиной до 32767 символов, такие имена начинаются с префикса «\\?\». Пример:
\\?\C:\Windows\System32\calc.exe
При использовании префикса «\\?\» необходимо указывать абсолютный путь к файлу, относительные пути не допускаются. При использовании относительных путей максимальная длина полного имени файла определена константой MAX_PATH (260 символов).
//1)
var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumR, sumC: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(61)-30;
write(A[i,j]:5);
if i = 3 then sumR := sumR + A[i, j];
if j = 5 then sumC := sumC + A[i, j];
end;
writeln;
end;
writeln('Сумма элементов 5 столбца = ', sumC);
writeln('Сумма элементов 3 строки = ', sumR);
end.
//2)
var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumA, sumB, countV, countG: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(300)-150;
write(A[i,j]:5);
if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j];
if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j];
if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1;
if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1;
end;
writeln;
end;
writeln('Сумма отрицательных 5 строки = ', sumA);
writeln('Сумма меньших 100 4-ого столбца = ', sumB);
writeln('Количество меньших 5 4-ой строки = ', countV);
writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG);
end.
Полное имя файла (включая расширение) в Windows может содержать до 260 символов, данное значение определено константой MAX_PATH в Windows API; например, полное имя файла максимально допустимой длины на диске C будет таким: «C:\<256 символов>NULL» (например, «C:\<254 символа>\<1 символ>NULL»). Однако, юникодовые версии некоторых функций позволяют использовать полные имена файлов длиной до 32767 символов, такие имена начинаются с префикса «\\?\». Пример:
\\?\C:\Windows\System32\calc.exe
При использовании префикса «\\?\» необходимо указывать абсолютный путь к файлу, относительные пути не допускаются. При использовании относительных путей максимальная длина полного имени файла определена константой MAX_PATH (260 символов).