Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.06.2019, 05:51   #1
chichamuka
Новичок
Джуниор
 
Регистрация: 22.06.2019
Сообщений: 1
Восклицание Вычислить суммы элементов матрицы, имеющих четные и нечетные индексы отдельно

Дана действительная квадратная матрица А размер nxn. Вычислить суммы элементов матрицы, имеющих четные и нечетные индексы отдельно.
chichamuka вне форума Ответить с цитированием
Старый 22.06.2019, 17:59   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Искать в Сети в лом???
Вот тут на QBasic:
http://www.cyberforum.ru/qbasic/thread1354612.html
Переведи на Паскаль. Потрудись хоть чуть-чуть.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 22.06.2019, 19:06   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Мутная какая-то формулировка. Четные и нечетные индексы - оба должны быть? А, к примеру, [2,1] - ни туды, ни сюды ?

Последний раз редактировалось digitalis; 23.06.2019 в 07:22.
digitalis вне форума Ответить с цитированием
Старый 24.06.2019, 06:14   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const n=10;
var i,j,s0,s1:integer;
    a:array[1..10,1..10] of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s0:=0;
   s1:=0;
   For i:=1 to n do
      For j:=1 to n do
         If j mod 2=0 then
            s0:=s0+a[i,j] else
            s1:=s1+a[i,j];
   Writeln(s0,', ',s1);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 24.06.2019, 06:36   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Не совсем. Проверяется четность только одного индекса. А как надо - не знает ни стьюден, ни озадачивший его препод. "Поди туда - не знаю куда и принеси хрен зна што."
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
FASM: Задан одномерный массив. Вычислить сумму элементов массива, имеющих четные номера 1234568654321 Помощь студентам 1 02.05.2015 12:14
Построить таблицу В, состоящую из элементов таблицы А [1..75], имеющих четные индексы. KotyaraYa Помощь студентам 4 18.12.2012 09:33
Вывести сначала все его четные (нечетные) елементы, а потом- нечетные(четные). tondo Помощь студентам 4 25.04.2012 00:17
Процедуры - вычислить количество элементов матрицы,кратных 5 и заменить на 0 все четные элементы матрицы Ksenichka Помощь студентам 1 19.05.2011 14:38