НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕсоставить программу которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный массив
НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
составить программу которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный массив
Гость
Ответ(ы) на вопрос:
Гостьvar a: array [0..10, 0..50] of integer;
b: array [0..10] of integer;
i, j: integer;
begin
for i := 0 to 10 do
begin
for j := 0 to 50 do
begin
a[i, j] := random(50);
write(a[i, j]:3);
end;
writeln();
end;
for i := 0 to 10 do
for j := 0 to 50 do
b[i] := b[i] + a[i, j];
for i := 0 to 10 do
write(b[i], ' ');
end.
Можно было, конечно, поменьше циклов, но так нагляднее будет =)
Не нашли ответ?
Похожие вопросы