0 / 0 / 0
Регистрация: 02.06.2012
Сообщений: 9
1

Дан двумерный массив. Сформировать одномерный массив по условию

08.06.2012, 18:30. Показов 1739. Ответов 1
Метки нет (Все метки)

Дан двумерный массив размерностью 6 х 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен первому четному элементу соответствующего столбца, если такого нет, то равен единице.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2012, 18:30
Ответы с готовыми решениями:

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный...

Дан одномерный цепочный массив и двумерный целочисленный массив
1Дан одномерный цепочный массив Отрицательные элементы заменить их модулями, а положительные -...

Разбить одномерный массив из 12 элементов на три строки и 4 столбца (сформировать двумерный массив).
Пожалуйста, помогите решить эту задачу!

Дан двумерный массив 5 на 5. Найти количество простых чисел в каждом столбце матрицы и вывести в одномерный массив
Из матрицы 5на5 вывести количество простых чисел в одномерный массив, в котором будет 5 чисел в...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.06.2012, 12:52 2
Лучший ответ Сообщение было отмечено GoodFight как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const n=6; m=5;
var a: array [1..n,1..m] of integer;
    b: array [1..m] of integer;
    i,j,chi: byte;
begin
writeln('');
for i:=1 to n do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
clrscr;
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
for j:=1 to m do
    begin
    chi:=0;
    i:=0;
    while (chi=0) and (i<n) do
          begin
          inc(i);
          if a[i,j] mod 2=0 then chi:=i;
          end;
    if chi=0 then b[j]:=1 else b[j]:=a[chi,j];
    end;
writeln;
for j:=1 to m do
    write(b[j]:4);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 12:52
Помогаю со студенческими работами здесь

Двумерный массив. Сформировать одномерный массив каждый элемент которого равен первому нечетному элементу соответствующей строки
Здравствуйте. Выручайте ;) Сформировать одномерный массив каждый элемент которого равен первому...

Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел
Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет...

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из отрицательных элементов этих строк
Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из отрицательных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru