Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в котором все элементы нечетные.

Просмотров: 851
Объяснение: -

РЕШЕНИЕ:

program PascalGuru; var A:array [1..50,1..50] of integer; B:array [1..50] of integer; i,j,n,m:integer; k:integer; nec:boolean; begin write('m = '); readln(m); write('n = '); readln(n); for i:=1 to m do for j:=1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; writeln; write ('vvedennyi massiv: '); for i:=1 to m do begin writeln; for j:=1 to n do write (A[i,j]:3,' '); end; k:=0; for j:=1 to n do begin nec:=true; for i:=1 to m do if A[i,j] mod 2=0 then nec:=false; if nec then begin inc(k); B[k]:=j; end; end; writeln;writeln('Massiv B:'); for i:=1 to k do write (B[i]:3,' '); readln; end.

нажми на эту область и скопируй решение


	© 2008 - 2017 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.