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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2015, 20:41   #1
_Ася_
 
Регистрация: 09.11.2015
Сообщений: 8
По умолчанию Паскаль. Сформировать одномерный массив из количеств положительных элементов

Сформировать одномерный массив из количеств положительных элементов в каждой строке матрицы.
_Ася_ вне форума Ответить с цитированием
Старый 09.11.2015, 21:01   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ввод матрицы показать сможешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.11.2015, 23:41   #3
_Ася_
 
Регистрация: 09.11.2015
Сообщений: 8
По умолчанию

Код:
Program Primer;
USES 
 CRT;
CONST
 kol_strok=5;
 kol_stolbcov=4;
VAR
 A:array[1..kol_strok,1..kol_stolbcov] of Real;
 i,j:integer;
BEGIN
 Writeln('Введите элемента матрицы А:');
 for i:=1 to kol_strok do
  for j:=1 to kol_stolbcov do
   Read(A[i,j]);
 ClrScr;
 Writeln('Матрица А:');
 for i:=1 to kol_strok do
  begin
   for j:=1 to kol_stolbcov do
    Write(A[i,j]:4:2,' ');
   Writeln;
  end;
 Readln;
END.

Последний раз редактировалось Вадим Мошев; 10.11.2015 в 00:10.
_Ася_ вне форума Ответить с цитированием
Старый 10.11.2015, 00:19   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Осталось завести массив размера с количество строк, заполнить его нулями, двойной цикл для прохода по массиву А (внешний по строкам, внутренний - по столбцам), во внутреннем цикле увеличивать счетчик в нужной ячейке нового массива, если в массиве А рассматривается положительный элемент.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 10.11.2015, 08:04   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Угу. Вот поправки:
Код:
Program Primer;
USES 
 CRT;
CONST
 kol_strok=5;
 kol_stolbcov=4;
VAR
 A:array[1..kol_strok,1..kol_stolbcov] of Real;
 B:Array[1..kol_strok] of integer;
 i,j:integer;
BEGIN
 Writeln('Введите элемента матрицы А:');
 for i:=1 to kol_strok do
  for j:=1 to kol_stolbcov do begin
   Read(A[i,j]); if a[i,j]>0 then inc(B[i]);
 end;
 ClrScr;
 for i:=1 to kol_strok do write(b[i]:5);
 Writeln('Матрица А:');
 for i:=1 to kol_strok do
  begin
   for j:=1 to kol_stolbcov do
    Write(A[i,j]:4:2,' ');
   Writeln;
  end;
 Readln;
END.
Годится?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 10.11.2015, 09:01   #6
_Ася_
 
Регистрация: 09.11.2015
Сообщений: 8
По умолчанию

Думаю, да)
Спасибо��
_Ася_ вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан одномерный массив из 30 элементов. Сформировать второй массив, в котором сначала идут все элементы первого массива, кратные 5, Olzhakesh C# (си шарп) 1 29.04.2014 23:49
одномерный массив. Произведение положительных элементов массива PROkaZZZniK Помощь студентам 2 10.12.2011 01:02
(С/С++) Сформировать новый массив из положительных нечетных элементов заданного массива Р(20) Chak1483 Помощь студентам 2 02.12.2011 12:05
(С/С++) Сформировать новый массив из положительных нечетных элементов заданного массива Р(20) Chak1483 Общие вопросы C/C++ 0 01.12.2011 22:05
Паскаль.Сформировать одномерный массив А из элементов матрицы, кратных трём ICEART Помощь студентам 2 03.10.2007 17:29