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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2017, 00:08   #1
Topse
Пользователь
 
Регистрация: 24.10.2017
Сообщений: 10
По умолчанию Найти сумму нечетных элементов массива четных столбцов

Дан двумерный массив размером в 5 строк и 5 столбцов,заданных с помощью генератора случайных чисел в интервале от 0 до 10.
Найти сумму нечетных элементов массива четных столбцов.

Данная программа находит только общую сумму,а мне нужно сумму нечетных элементов массива четных столбцов.

Код:
Const  N=5; M=5; 
Var  a :array [1..N, 1..M] Of integer;  
i,j,s,sum : integer;
Begin
  sum:=0;
  randomize;
  For i:=1 to N do
  For j:=1 to M do  
  A[i,j]:= random(11);
		For i:=1 to N do
  	   	 begin
	        		For j:=1 to M do 
	        		Write(a[i,j]:3);
	   	  Writeln;
	  	  end;
	  	  begin
  if a[i,j] mod 2<>0 then sum:= sum+a[i,j];
  end;
For i:=1 to N do
For j:=1 to M do 
s:=s+a[i,j];
Writeln;
Write('Сумма=',s);
End.
Topse вне форума Ответить с цитированием
Старый 25.10.2017, 08:43   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от Topse Посмотреть сообщение
Данная программа находит только общую сумму,а мне нужно сумму нечетных элементов массива четных столбцов.
Ну так пишите свою программу, а не копипастите чужую.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 25.10.2017, 09:11   #3
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

вот тут он пытался
Код:
begin
  if a[i,j] mod 2<>0 then sum:= sum+a[i,j];
  end;
но надо
Код:
begin
  if (a[i,j] mod 2<>0) and (j mod 2 = 0) then sum:= sum+a[i,j];
  end;
и в цикл осталось запихнуть

upd.
или по другому
Код:
For i:=1 to N do
begin
    j:=2;
    while j<=M do
    begin
        if a[i,j] mod 2 <> 0 then sum := sum+a[i,j];
        j:=j+2;
    end;
end;
Writeln;
Write('Сумма=',sum);
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 25.10.2017 в 09:24.
Aleksandr H. вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти номера нечетных элементов , стоящих на четных местах массива voytik Паскаль, Turbo Pascal, PascalABC.NET 5 26.09.2015 07:18
Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел. darwin1 Паскаль, Turbo Pascal, PascalABC.NET 1 15.03.2014 17:50
Найти сумму элементов, стоящих на четных местах и произведение элементов, стоящих на нечетных местах Dark Raven Помощь студентам 2 16.03.2012 10:09
посчитать к-во четных и нечетных элементов массива kwain Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 15.12.2011 10:41
Найти сумму элементов четных столбцов матрицы Julila Помощь студентам 3 25.02.2011 15:51