помогите паскаль пожалуйста ! просуммировать элементы строк матрицы размером 4/3.Результат получить в одномерном массиве размером 4
10-11 класс
|
program xyz;
var A:array [1..4][1..3]of integer;
B:array [1..4] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 4 do
for j:= 1 to 3 do
A[i,j]:= random(100)-50;
for i:=1 to 4 do
begin
for j:=1 to 3 do
s:=s+A[i,j];
b[i]:=s;
s:=0;
end;
for i:= 1 to 4 do
writeln (B[i]);
end.
Другие вопросы из категории
Читайте также
решением? добавить методические укащания к заданию?)
спирали в очередной элемент одномерного массива ( начиная с первого) он записывал элемент матрицы с нечетной суммой индексов. Затем, двигаясь в обратном направлении по этой же спирали, последовательно записывал в одномерный массив элементы матрицы с четной суммой индексов. Сколько четных элементов одновременно массива стоят на нечетных местах?
А) 8 Б) 2 В) 16 Г) 4
1 2 3 4
8 7 6 5|
9 10 11 12
16 15 14 13
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
2)дана матрица размерами N * N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).