В двумерном массиве целых чисел заменить все элементы, меньшие суммы элементов первой строки на эту сумму

@Лера Чай · Регистрация: 25.03.2012

Author24 — интернет-сервис помощи студентам

Delphi

Const 
    n = 10; 
    m = 10;
Var 
    arr: array[1..n,1..m] of integer;
    sum: integer;
    i,j:byte;
 
Begin
Clrscr;Randomize;
sum:=0;
For i:=1 to n do begin
    For j:=1 to m do begin
        arr[i,j]:= Random(100)-50;      
        Write(arr[i,j]:5);
        if i=1 then sum:=sum+arr[1,j];
        if i>1 then
            If arr[i,j] < sum then arr[i,j]:=sum;
    end;
    writeln;
end;
Writeln;
Writeln('Сумма элементов первой строки: ', sum);
For i:=1 to n do begin
    For j:=1 to m do 
        Write(arr[i,j]:5);
    writeln;
end;
readln;
End.

@Puporev · 20.06.2012, 19:37

Примите

	20.06.2012, 19:37