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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.05.2014, 21:22   #1
Krugan
Пользователь
 
Регистрация: 14.05.2014
Сообщений: 14
Восклицание многомерные массивы

Здравствуйте! Помогите мне пожалуйста! Вот у меня есть программа которая проверяет сколько раз встречается число в масиве. но мне нужно переделать ее как многомерный массив. суть та же, но что б через многомерный массив.
Код:
 program masiv;
var
   i,n,x,v : integer;
   a : array [1..100] of integer;
begin
     writeln('vvedit kolitchestvo chisel n :');
     readln(n);
     writeln('vvedit masiv');
     for i:=1 to n do
         read(a[i]);
     writeln('vvedit tchislo');
     readln(x);
     v:=0;
     for i:=1 to n do
          if (a[i] = x) then v:=v+1;
     writeln('vstretchaetsa ',v);
     readln;
end.
Krugan вне форума
Старый 16.05.2014, 19:59   #2
Krugan
Пользователь
 
Регистрация: 14.05.2014
Сообщений: 14
Счастье Спасибо!!

Спасибо за "помощь"... я переделал прогу САМ, вот, мож кому пригодится
Код:
program masiv;
var
   i,j,m,n,x,v : integer;
   a : array [1..100,1..100] of integer;
begin
     writeln('vvedit kolitchestvo chisel n :');
     readln(n,m);
     writeln('vvedit masiv');
     for i:=1 to n do
     for j:=1 to m do
              read(a[i,j]);
     writeln('vvedit tchislo');
     readln(x);
     v:=0;
     for i:=1 to n do
     for j:=1 to m do
          if (a[i,j] = x) then v:=v+1;
     writeln('vstretchaetsa ',v);
     readln;
end.

Последний раз редактировалось Serge_Bliznykov; 17.05.2014 в 08:31. Причина: поправил теги форматирования
Krugan вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Многомерные массивы desnet C++ Builder 0 26.11.2013 14:53
МНОГОМЕРНЫЕ МАССИВЫ HELENA))))) Помощь студентам 1 13.11.2012 22:21
Многомерные массивы C++ Jillian Помощь студентам 0 14.05.2012 18:30
Многомерные массивы Zina123 Помощь студентам 1 12.12.2010 21:51
Многомерные массивы DDP Помощь студентам 1 19.12.2009 19:37