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

@GoodFight · Регистрация: 02.06.2012

Дан двумерный массив размерностью 6 х 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен первому четному элементу соответствующего столбца, если такого нет, то равен единице.

@КонецСвета · 09.06.2012, 12:52

Pascal

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.

@GoodFight 0 / 0 / 0 Регистрация: 02.06.2012 Сообщений: 9
		1
	Дан двумерный массив. Сформировать одномерный массив по условию 08.06.2012, 18:30. Показов 1739. Ответов 1 Метки нет (Все метки) Дан двумерный массив размерностью 6 х 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен первому четному элементу соответствующего столбца, если такого нет, то равен единице. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение