Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дан двумерный массив, размер 6х7. Определить, сумма каких элементов больше - 2-го столбца или 3-ей строки?

Ответ оставил Гость

Var  
    a : array [1..6, 1..7] of Integer;  
    i, e, col, row : Integer;
begin

    for i := 1 to 6 do
        for e := 1 to 7 do
            a[i, e] := Random(100);

    for i := 1 to 7 do col := col + a[2, i];
    for i := 1 to 6 do row := row + a[i, 3];

    if col > row then Writeln(2-го столбца);
    if col < row then Writeln(3-ей строки);
    if col = row then Writeln(равны);

    Readln;
end.