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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2014, 21:57   #1
Виктория1991)
Новичок
Джуниор
 
Регистрация: 09.12.2014
Сообщений: 1
По умолчанию Подскажите пожалуйста, что делать дальше.

Моя задача: Дана целочисленная матрица. Для каждого столбца матрицы вычислить количество элементов, являющихся удвоенными нечетными числами. Определить , будут ли упорядочены полученные значения.

Код:
Var
a : array [1..N, 1..N] of integer;
b : array [1..N, 1..N] of integer;
i, j, n, m: integer;
f1, f2, f3: integer;
Begin
Write ('Введите n=');
Readln (n);
Write ('Введите m=');
Readln (m);
For i:=1 to n do
begin
for j:=1 to m do;
begin
A[i,j]:=random(10);
Write (A[i,j]:3);
end;
Writeln;
For i:=1 to n do
begin
For j:=1 to m do
Write (a[i, j]>0);
Writeln;
end;
For i:=1 to n do
begin
For j:=1 to m do
begin
if A[i,j] mod 2=1 then inc(k); 
end;      
begin
b[k]:=0;
end;
end;

Не знаю, что делать дальше(

Последний раз редактировалось Stilet; 10.12.2014 в 10:13.
Виктория1991) вне форума Ответить с цитированием
Старый 09.12.2014, 22:52   #2
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

Для начала сделай так, чтобы хотя бы это компилировалось и работало.
Son Of Pain вне форума Ответить с цитированием
Старый 09.12.2014, 23:48   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Подсказываю:
Код:
// а где program ... ?
Var
 a : array [1..N, 1..N] of integer; // что такое N ?
 b : array [1..N, 1..N] of integer;
 i, j, n, m: integer;    // как, еще одно n ?
 f1, f2, f3: integer;
И т.д.
Компилятор у вас есть ? Если есть, компилируйте, он покажет ошибки.
type_Oleg вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массив. Подскажите, что делать дальше? Damir_Khasanov Помощь студентам 5 09.05.2014 17:36
что делать дальше с программой? Richik123 Паскаль, Turbo Pascal, PascalABC.NET 4 04.10.2012 18:47
CMS DotNetNuke. Установил, что делать дальше вообще не понятно. Casper-SC Общие вопросы .NET 0 15.11.2010 14:51
Не знаю что делать дальше)))) LiptonICE Помощь студентам 1 15.05.2010 13:36
Есть идея для комп. игры!!!!!! Что делать дальше??? Mb666 Свободное общение 8 21.10.2007 16:52