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

@Torrich · Регистрация: 21.09.2019

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

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

@Andrew_97 · 19.03.2020, 23:22

Pascal

const n=10; m=7;
var i,j,s:integer;
  a:array[1..n,1..m]of integer;
 
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(41)-20;
      write(a[i,j]:4); end;
    writeln; end;
  writeln;
  
  for i:=1 to n do
    for j:=1 to m do
      if (odd(i) and odd(j)) then
        s:=s+a[i,j];
        
  writeln('Сумма элементов с нечетными номерами:',s);
end.

@canadamoscow · 25.03.2020, 23:32

Pascal

begin
   var a := MatrRandom(10,7,1,9).Println;Println;
   a.ConvertAll((t,i,j) -> i.isEven and j.isEven ? t : 0).ElementsByRow.Sum.Println;
end.

i.isEven and j.isEven ?
Проверка на четность потому как индексы нумеруются с 0,0 а по факту 1,1
Обнуляем все ненужные элементы. Преобразуем матрицу в массив. Суммируем и выводим результат

@Torrich 0 / 0 / 0 Регистрация: 21.09.2019 Сообщений: 15
		1
	Создайте двумерный целочисленный массив А[1..10, 1..7] и найдите сумму всех его элементов, имеющих оба нечетных индекса 19.03.2020, 20:41. Показов 4212. Ответов 2 Метки нет (Все метки) Создайте двумерный целочисленный массив А[1..10, 1..7] и найдите сумму всех его элементов, имеющих оба нечетных индекса. нужно написать программу как можно проще 0

Опции темы