Составьте программу вычисления суммы элементов в каждом столбце матрицы С размерами N x N
10-11 класс
|
Program asd;
Const n=4;
Var C:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to n do
begin
C[i,j]:=1+Random(9);
Write(C[i,j],' ');
end;
Writeln;
end;
Writeln;
For j:=1 to n do
begin
s:=0;
For i:=1 to n do
begin
S:=S+C[i,j];
end;
Writeln('Столбец[',j,'] = ',s);
end;
END.
Другие вопросы из категории
так много, что я совершенно запуталась! -.- Поэтому, пожалуйста, если можно, напишите её! Заранее большое спасибо! ;) Задание: Сколько памяти нужно для хранения 64-цветного растрового изображения размером 32 на 128 точек?
1. (a+b)*(c+2*d)
2.(2*a-3*d)*c+2*b
3.(a+b+2*c)*d
4. 3*a - (2*b+c) * d
две логические функции, зависящие от трех аргументов A, B и C.
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.