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

@Andreika24 · Регистрация: 19.11.2013

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

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

@Puporev · 04.12.2013, 13:08

Pascal

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.

@Максим2014 · 05.12.2013, 09:26

Приветствую! Объясните пожалуйста почему вы берёти предпоследний элемент? где m-1 и n-1 ?

@Puporev · 05.12.2013, 09:28

Потому что здесь динамический массив и при его размере [m,n] индексы изменяются в пределах [0..m-1,0..n-1]

@Максим2014 · 05.12.2013, 09:49

Понятно!

@Andreika24 · 05.12.2013, 23:30 **[ТС]**

Спасибо, большое.

@Andreika24 0 / 0 / 0 Регистрация: 19.11.2013 Сообщений: 149
		1
	Составить процедуру подсчета количества n элементов одномерного массива, значения которых меньше числа Р 04.12.2013, 11:07. Показов 2667. Ответов 5 Метки нет (Все метки) Составить процедуру подсчета количества n элементов одномерного массива, значения которых меньше числа Р. С помощью этой процедуры подсчитать количество элементов, меньших Р, в каждой строке двумерной матрицы С. 0

@Максим2014 5 / 5 / 7 Регистрация: 10.07.2013 Сообщений: 113
	05.12.2013, 09:26	3
	Приветствую! Объясните пожалуйста почему вы берёти предпоследний элемент? где m-1 и n-1 ? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	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