Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 14.04.2014
Сообщений: 2

Дан двумерный массив, заполнить его случайными числами и найти сумму элементов, имеющих нечетное значение

14.04.2014, 18:23. Показов 2454. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите, сам никак не могу врубиться ((


Дан двумерный массив из целых чисел,состоящий из 20 элементов,заполнить его случайными числами и найти сумму элементов,имеющих нечетное значение.Вывести те элементы,значение которых > A. Определить,есть ли в данном массиве элементы,равные K.
Как-то так.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.04.2014, 18:23
Ответы с готовыми решениями:

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму...

Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке
можете помочь? Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Определить номера строк...

Заполнить двумерный массив N x N случайными числами из интервала и найти сумму элементов стоящих в четных столбцах
заполнить двумерный массив N x N случайными числами из интервала и найти сумму элементов стоящих в четных столбцах в каждоййстроке

1
 Аватар для Svager
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
14.04.2014, 18:51
Лучший ответ Сообщение было отмечено RC83 как решение

Решение

Цитата Сообщение от RC83 Посмотреть сообщение
Как-то так.


Добавлено через 9 минут
Как-то так
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
33
34
35
36
37
38
uses crt;
const m=4;
      n=5;
var a:array[1..m,1..n] of integer;
    i,j,s,b,k:integer;
begin
 clrscr;
  for i:=1 to m do
   for j:=1 to n do
    a[i,j]:=-10+random(77);
    
  for i:=1 to m do
   begin
    for j:=1 to n do
     write(a[i,j]:4);
      writeln;
   end;
  writeln;
   for i:=1 to m do
    for j:=1 to n do
     if a[i,j] mod 2=0 then
      s:=s+a[i,j];
     writeln('Ñóììà ÷åòíûõ ýëåìåíòîâ = ',s);
   write('A=');
    readln(b);
   for i:=1 to m do
    for j:=1 to n do
     if a[i,j]>b then
      write(a[i,j]:4);
    writeln;
   write('K=');
    readln(k);
   for i:=1 to m do
    for j:=1 to n do
     if a[i,j]=k then
      write(i,' = ',a[i,j],' = K');
 readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.04.2014, 18:51
Помогаю со студенческими работами здесь

Заполнить двумерный массив случайными числами из интервала и найти сумму элементов массива лежащих на главной диагонали
не работает программа program aaa; var n : integer; s :real; a: array of real; begin s:=0;

Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами
2. Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами. Найти: • сумму элементов, имеющих нечетные...

Заполнить двумерный массив случайными числами, посчитать сумму элементов побочной диагонали
Заполнить массив 6*6 случайными числами до 10, посчитать сумму элементов побочной диагонали. Вывести массив и результат суммы.

Создать и заполнить массив случайными числами и вычислить сумму его элементов
Привет ребята, подскажите как реализовать вот это задание? "используя указатели, нписать следующую программу. программа принимает с...

Заполнить двумерный массив 6,5 случайными числами. Найти произведений элементов 4 строки
Заполнить двумерный массив 6,5 случайными числами. Найти произведений элементов 4 строки.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru