Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
VNgorod
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 6
#1

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

04.01.2015, 18:39. Просмотров 631. Ответов 2
Метки нет (Все метки)

Дана вещественная матрица А(3,4). Составить программу подсчета количества элементов матрицы, удовлетворяющих условию р1<=a(i,j)<=p2. Значения р1 и р2 задаются самостоятельно.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2015, 18:39
Ответы с готовыми решениями:

Составить программу для подсчета количества нечетных элементов в каждой строке матрицы
Помогите, пожалуйста, очень нужно. Вот задание: дана матрица D размером ....

Составить программу подсчета количества элементов массива, совпадающих с минимальным элементом
ввести двумерный массив A(N,N). Составить программу подсчета количества...

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

Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
5. Дан массив целых чисел. Выяснить, верно ли, что сумма элементов, которые...

Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
Дан массив целых чисел. Найти сумму нечетных элементов;

2
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
04.01.2015, 20:04 #2
Лучший ответ Сообщение было отмечено VNgorod как решение

Решение

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
uses
  crt;
 
const
  m = 3;
  n = 4;
  
var
  A: array[1..m, 1..n] of real;
  i, j, Q: byte;
  p1, p2: real;
  
begin
  ClrScr;
  writeln('Введите p1, p2:');
  readln(p1, p2);
  Q := 0;
  randomize;
  for i := 1 to m do begin
    for j := 1 to n do begin
      a[i, j] := 200 * random - 100;
      write(a[i, j]:8:3);
      if (a[i, j] >= p1) and (a[i, j] <= p2) then inc(Q)
    end;
    writeln
  end;
  writeln;
  writeln('Количество: ', Q);
  readln
end.
0
VNgorod
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 6
04.01.2015, 20:13  [ТС] #3
Спасибо друг
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2015, 20:13

Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
6.4) Дан массив целых чисел. Найти сумму элементов, кратных заданному числу;

расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
известны данные о количестве осадков, выпавших за каждый день февраля. Найдите...

Составить программу поиска чисел, удовлетворяющих условию
Здравствуйте! помогите пожалуиста решить задачу=((( Некоторые пятизначные...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru