Дан двумерный массив a размером n*n. Написать программу определения номера столбца с максимальной суммой элементов. Дан двумерный массив а размером n*n. В каждой строке изменить значения элементов, стоящих за минимальным эле...
Дан двумерный массив a размером n*n. Написать программу определения номера столбца с максимальной суммой элементов. Дан двумерный массив а размером n*n. В каждой строке изменить значения элементов, стоящих за минимальным элементом этой строки, на 1
Гость
Ответ(ы) на вопрос:
ГостьОбе програмки проверены на АВС Паскале. Работают :) Program User6165_1;
const n=10;
var
a:array[1..n,1..n] of integer;
stosum:array[1..n] of integer;//массив для хранения сумм столбцов
i,j,nomer,sum : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:= Random(100); //заполняем массив
writeln('*** alphaues is thinking... ***');
for j:=1 to n do
begin
sum:=0;
for i:=1 to n do
sum:=sum+a[i,j]; // находим сумму столбца
stosum[j]:=sum;
end;
nomer:=1;
sum:=stosum[1];
for j:=1 to n do
begin
if suma[i,j] then
begin
min:=a[i,j];
nomer:=j;
end;
if nomer
Не нашли ответ?
Похожие вопросы