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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2009, 13:31   #1
...Diman...
Новичок
Джуниор
 
Регистрация: 15.01.2009
Сообщений: 2
По умолчанию В один массив нужно переслать чётные, а в другой - нечетные элементы матрицы.

помогите пожалуйста с задачкой....
дана матрица A, имеющая N строк и N столбцов. Необходимо сформировать два одномерных массива. В один нужно переслать чётные, а в другой - нечетные элементы матрицы. Вывести на экран все массивы...
Пожалуста помогите с данной задачкой...
...Diman... вне форума Ответить с цитированием
Старый 15.01.2009, 14:00   #2
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

program chet_ne4et;
uses crt;
var i,j,k,l,n: integer;
a:array [1..100,1..100] of integer;
chet:array[1..100] of integer;
nechet:array[1..100] of integer;
begin
clrscr;
writeln ('vvedite n');
readln(n);
writeln('vvedite elementy:' ) ;
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,j,']=');
readln(a[i,j]);end;
k:=1;
l:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2 =0 then begin
chet [k]:=a[i,j];
k:=k+1; end
else begin
nechet[l]:=a[i,j];
l:=l+1;
end;
writeln('ishodnyy massiv:');
for i:=1 to n do
for j:=1 to n do
writeln('a[',i,j,']=',a[i,j]);
writeln('chetnyy massiv:');
for i:=1 to k-1 do
writeln('chet[',i,']=',chet[i]);
writeln('nechetnyy massiv:');
for i:=1 to l-1 do
writeln('nechet[',i,']=',nechet[i]);
readln;
end.
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Старый 15.01.2009, 14:18   #3
...Diman...
Новичок
Джуниор
 
Регистрация: 15.01.2009
Сообщений: 2
По умолчанию

Цитата:
Сообщение от maladoy Посмотреть сообщение
program chet_ne4et;
uses crt;
var i,j,k,l,n: integer;
a:array [1..100,1..100] of integer;
chet:array[1..100] of integer;
nechet:array[1..100] of integer;
begin
clrscr;
writeln ('vvedite n');
readln(n);
writeln('vvedite elementy:' ) ;
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,j,']=');
readln(a[i,j]);end;
k:=1;
l:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2 =0 then begin
chet [k]:=a[i,j];
k:=k+1; end
else begin
nechet[l]:=a[i,j];
l:=l+1;
end;
writeln('ishodnyy massiv:');
for i:=1 to n do
for j:=1 to n do
writeln('a[',i,j,']=',a[i,j]);
writeln('chetnyy massiv:');
for i:=1 to k-1 do
writeln('chet[',i,']=',chet[i]);
writeln('nechetnyy massiv:');
for i:=1 to l-1 do
writeln('nechet[',i,']=',nechet[i]);
readln;
end.
Спасибо огромное...
...Diman... вне форума Ответить с цитированием
Старый 15.01.2009, 14:23   #4
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Отзыв не забудь
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Старый 15.01.2009, 15:15   #5
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Не туда запостил
вступлю в команду разработчиков ПО на Delphi

Последний раз редактировалось maladoy; 15.01.2009 в 15:20.
maladoy вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите,плиз, как вставить один массив в другой Paige Hollivel Паскаль, Turbo Pascal, PascalABC.NET 3 01.07.2008 10:21
переписать из массива в линейный двунаправленный список чётные элементы массива Black_Ak24 Помощь студентам 12 08.01.2008 00:44
найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив W_P Помощь студентам 6 28.12.2007 00:24
умножить число на элементы матрицы KORT Помощь студентам 2 04.11.2007 02:06