Для каждого столбца матрицы с четным номером найти сумму его элементов

@Equally · Регистрация: 15.03.2013

Дана матрица размера M х N. Для каждого столбца матрицы с четным номером (2, 4,...) найти сумму его элементов. Условный оператор не использовать.

@Асичка · 15.03.2013, 22:38

Pascal

uses crt;
var
j,i,M,N:integer;
a: array [1..10,1..10] of integer;
Sum:real;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение 
writeln;
writeln('Ответ');
for i:=1 to N div 2 do
begin
Sum:=0;
for j:=1 to M do
begin
Sum:=Sum+a[J,I*2];
end;
writeln('среднее арифметическое ',i*2,' столбца : ',Sum/M);
end;
end.

@Equally 0 / 0 / 0 Регистрация: 15.03.2013 Сообщений: 21
		1
	Для каждого столбца матрицы с четным номером найти сумму его элементов 15.03.2013, 22:14. Показов 1483. Ответов 1 Метки нет (Все метки) Дана матрица размера M х N. Для каждого столбца матрицы с четным номером (2, 4,...) найти сумму его элементов. Условный оператор не использовать. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы