Опубликовано 4 года назад по предмету Информатика от pandorum

Просуммировать элементы столбцов заданной матрицы размером 4*3.Результат получить в однородном массиве размером 3.(можно с подробным решением? добавить методические укащания к заданию?)

Ответ

Ответ дан StrangeT

const nn=5;
var
a: array[1..nn,1..5] of integer;
b: array [1..nn] of integer;
i,j:integer;
begin
for i:= 1 to 4 do    //Ввод первоначального массива
for j:= 1 to 3 do   //(сначала вводятся строки, затем
    readln(a[i,j]);        //    столбцы}
writeln; //Просто пропуск строки для того, что бы результат не сливался.
for i:= 1 to 4 do   //Печать введенного массива
begin               //(не обязятельна,служит лишь для лучшей проверки)
for j:= 1 to 3 do
    write(a[i,j]:4);
writeln;
end;
writeln;
for j:= 1 to 3 do b[j]:=0; //Зануление второго массива.
for j:= 1 to 3 do       // Проход по начальному массиву наоборот,
for i:= 1 to 4 do     // сначала по столбцам,затем по строкам.
    b[j]:=b[j]+a[i,j]; //Во второй массив записывается сумма элем. столбоцв
for j:= 1 to 3 do write(b[j],' ');
end.

Другие вопросы

Математика - 3 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

Математика - 1 месяц назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

Математика - 1 месяц назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

Физика - 1 месяц назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Физика - 1 месяц назад

Сколько часов и минут в -1,3ч и -2,75ч