Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 07.05.2015
Сообщений: 41

Для каждого столбца двухмерного массива вывести первое нечетное значение

26.10.2015, 18:32. Показов 1443. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для каждого столбца двухмерного массива вывести первое нечетное значение
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.10.2015, 18:32
Ответы с готовыми решениями:

для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов
Для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов. Собственно вот... program TTT; var i, j :...

Посчитать сумму столбцов двухмерного массива и вывести сумму каждого столбца в одномерный массив
Посчитать сумму столбцов двухмерного массива и вывести сумму каждого столбца в одномерный массив. Мне считает сумму первого столбца и...

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

1
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
27.10.2015, 06:11
Лучший ответ Сообщение было отмечено AndreuProger как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
  m = 10;
  n = 8;
 
var
  a : array[1..m, 1..n] of Integer;
 
begin
  Randomize;
  for var i := 1 to m do 
    begin
      for var j := 1 to n do 
        begin
          a[i, j] := random(10);
          write(a[i, j]:3)
        end;
      writeln
    end;
  WriteLn('Первые нечётные каждого столбца:');
  for var j := 1 to n do
    begin
      var p := -1;
      for var i := n downto 1 do
        if odd(a[i, j]) then
          p := a[i, j];
      if p = -1 then
        Write('-':3)
      else
        Write(p:3);
    end;
  WriteLn;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.10.2015, 06:11
Помогаю со студенческими работами здесь

Вычислить сумму элементов каждого столбца двухмерного массива
помогите пожалуйста

Посчитать среднее арифметическое каждого столбца двухмерного массива
Посчитать среднее арифметическое каждого столбца двухмерного массива, и вывести значения в StringGrid в виде одномерного массива. ...

Найти сумму и число элементов каждого столбца двухмерного массива
удовлетворяющих следующим условиям:элементы попадающие в промежуток от А до В, где А и В вводятся с клавиатуры (можно покороче и с...

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

Найти сумму и число элементов каждого столбца двухмерного массива
Найти сумму и число элементов каждого столбца двухмерного массива удовлетворяющих следующим условиям: состоящая только из отрицательных и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru