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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

Последний раз редактировалось digitalis; 23.06.2019 в 08:22.
digitalis вне форума   Ответить с цитированием
Старый 24.06.2019, 07:14   #4
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,765
Репутация: 1655

skype: newerow1989
По умолчанию

Код:
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
Адрес: Минск
Сообщений: 1,573
Репутация: 549
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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


06:28.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru