Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

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

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

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

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

Код:
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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 24.06.2019, 07:36   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,167
По умолчанию

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
FASM: Задан одномерный массив. Вычислить сумму элементов массива, имеющих четные номера 1234568654321 Помощь студентам 1 02.05.2015 13: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