Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Andreika24
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 149
1

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

04.12.2013, 11:07. Просмотров 1476. Ответов 5
Метки нет (Все метки)

Составить процедуру подсчета количества n элементов одномерного массива, значения которых меньше числа Р. С помощью этой процедуры подсчитать количество элементов, меньших Р, в каждой строке двумерной матрицы С.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2013, 11:07
Ответы с готовыми решениями:

Составить подпрограмму подсчета количества L элементов массива, значения которых лежат в пределах от p до q
Составить подпрограмму подсчета количества L элементов одномерного массива A, L<=m, значения...

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

Найти количество элементов массива, значения которых отрицательны и не меньше заданного числа А
Дан массив целых чисел, состоящий из 12 элементов. Заполнить его с клавиатуры. Найти количество тех...

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

Программа подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P]
Помогите, пожалуйста :) (если не трудно, то можно с пояснениями) 1.Составьте программу подсчета...

5
Puporev
Модератор
58508 / 44433 / 30682
Регистрация: 18.05.2008
Сообщений: 106,449
04.12.2013, 13:08 2
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
type  mtr=array[,] of integer;
procedure count(a:mtr;n,p,s:integer;var k:integer);
var i:integer;
begin
k:=0;
for i:=0 to n-1 do
if a[s,i]<p then inc(k);
end;
var c:mtr;
    m,n,i,j,p,k:integer;
begin
randomize;
write('Количество строк m=');
read(m);
write('Количество столбцов n=');
read(n);
for i:=0 to m-1 do
setlength(c,m,n);
writeln('Матрица С');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
   begin
    c[i,j]:=random(100);
    write(c[i,j]:3);
   end;
  writeln
 end;
write('P=') ;
read(p);
writeln('Количество элементов, меньших ',p,' в строках');
for i:=0 to m-1 do
 begin
  count(c,n,p,i,k);
  writeln('Строка ',i+1,'=',k)
 end;
end.
1
Максим2014
5 / 5 / 7
Регистрация: 10.07.2013
Сообщений: 113
05.12.2013, 09:26 3
Приветствую! Объясните пожалуйста почему вы берёти предпоследний элемент? где m-1 и n-1 ?
0
Puporev
Модератор
58508 / 44433 / 30682
Регистрация: 18.05.2008
Сообщений: 106,449
05.12.2013, 09:28 4
Потому что здесь динамический массив и при его размере [m,n] индексы изменяются в пределах [0..m-1,0..n-1]
0
Максим2014
5 / 5 / 7
Регистрация: 10.07.2013
Сообщений: 113
05.12.2013, 09:49 5
Понятно!
0
Andreika24
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 149
05.12.2013, 23:30  [ТС] 6
Спасибо, большое.
0
05.12.2013, 23:30
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2013, 23:30

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива
1. Составьте программу подсчета числа наименьших по модулю элементов одномерного массива А(p);...

Напечатать номера элементов одномерного массива, значения которых находятся в заданном диапазоне.
Напечатать номера элементов одномерного массива, значения которых находятся в заданном диапазоне.

Составить процедуру подсчета суммы элементов.
Составить процедуру подсчета суммы элементов в одномерном массиве. С помощью этой процедуры...


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

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

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