В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число.

@iceboss · Регистрация: 08.03.2012

В двухмерном массиве вычислить сумму элементов, произведение индексов
столбца и строки которых нечетное число.

@КонецСвета · 19.03.2012, 01:02

Pascal

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    i,j,n,m: byte;
    sum: integer;
begin
repeat
write('Кол-во строк, не более ',nmax,', n=');
readln(n);
until n in [1..nmax];
repeat
write('Кол-во столбцов, не более ',nmax,', m=');
readln(m);
until m in [1..nmax];
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:3);
        if (i*j) mod 2=1 then inc(sum,a[i,j]);
        end;
    writeln;
    end;
writeln('Смумма элементов, произведение индесов которых является нечетным числом, =',sum);
readln;
end.

@iceboss 0 / 0 / 0 Регистрация: 08.03.2012 Сообщений: 9
		1
	В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число. 18.03.2012, 23:02. Показов 961. Ответов 1 Метки нет (Все метки) В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число. 0

Опции темы

В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число.

Решение