Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2010, 17:10   #1
om3n
Пользователь
 
Регистрация: 14.04.2010
Сообщений: 17
По умолчанию Двумерные массивы... (Pascal ABC)

Есть массив B (с помощью рандома) двумерный из 2х строк и 3х столбцов. Через клавиатуру введены 2 числа a и b. Подсчитать кол-во элементов массива, значения которых находится в a,b.

Спасибо заранее.
om3n вне форума Ответить с цитированием
Старый 23.04.2010, 17:17   #2
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

а что значит находится в a,b.???

это так чтоли: a<X[i,j]<b???
Жми на весы!!!
Chudo4258 вне форума Ответить с цитированием
Старый 23.04.2010, 17:20   #3
om3n
Пользователь
 
Регистрация: 14.04.2010
Сообщений: 17
По умолчанию

(x[i,j]>=a) (x[i,j]<=b)

Вот так примерно
om3n вне форума Ответить с цитированием
Старый 23.04.2010, 17:30   #4
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

Код:
k:=0;
for i:=1 to 2 do
for j:=1 to 3 do
if (b[i,j]>=a) and (b[i,j]<=b) then inc(k);
writeln(k);
кому нужна помощь! жду в аське и скайпе!
Филантроп вне форума Ответить с цитированием
Старый 23.04.2010, 17:33   #5
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

ру тогда как-то так:
Код:
randomize;
readln(a,b);
k:=0;
for i:=1 to 2 do
 for j:=1 to 3 do
  begin
   X[i,j]:=random(-10)+21;
   if (x[i,j]>=a) and (x[i,j]<=b) then inc(k);
  end;
writeln(k);
Жми на весы!!!
Chudo4258 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите решить задачу Pascal ABC массивы aunt Sveta Помощь студентам 12 11.03.2011 16:09
Двумерные массивы в Pascal AnL Помощь студентам 6 14.12.2009 17:45
Pascal ABC, массивы Russia Помощь студентам 8 23.05.2009 12:23
Двумерные массивы (Pascal) Дима82 Помощь студентам 11 07.06.2008 16:54
Pascal двумерные массивы I n n a Паскаль, Turbo Pascal, PascalABC.NET 3 08.05.2008 13:50