Прямоугольные таблицы

@StepaShirokov · Регистрация: 19.05.2011

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста с решением!

Создайте двумерный целочисленный массив А[1..10, 1..7] и найдите сумму всех его элементов, имеющих оба нечетных индекса.

заранее спасибо!!

@KaiTheCat · 31.05.2011, 16:18

Pascal

uses crt;
const
   n=10;
   m=7;
var
   a: array[1..n,1..m] of integer;
   i,j: byte;
   sum: integer;
begin
   clrscr;
   randomize;
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
               if odd(i) and odd(j) then inc(sum,a[i,j]);
            end;
         writeln;
      end;
   writeln;
   writeln('сумма: ',sum);
   readkey
end.

@StepaShirokov 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 20
		1
	Прямоугольные таблицы 31.05.2011, 15:25. Показов 1135. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с решением! Создайте двумерный целочисленный массив А[1..10, 1..7] и найдите сумму всех его элементов, имеющих оба нечетных индекса. заранее спасибо!! 0

	31.05.2011, 16:18

Прямоугольные таблицы

Решение