Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
Рис. 9.3. Блок-схема основной программы примера 1 

---

142 
Пример 2. Составьте блок-схему (рис. 9.4) и напишите программу 
решения следующей задачи: дан двумерный массив целых чисел, 
который содержит не более 10 строк и не более 10 столбцов. Найдите 
и выведите номера тех столбцов, все элементы которых четные. 
Рис. 9.4.Блок-схема процедуры Chet 

---

143 
Program Primer_2; 
Type tabl=Array[1..10,1..10] of Integer; 
{-------------------------------------------------------------------------} 
{Процедура ввода элементов двумерного массива} 
Procedure Wwod2(k,p:Integer; Var x:tabl); 
Var i,j : Integer; 
Begin 
For i := 1 to k do 
For j := 1 to p do 
X[i,j]:=Random(100); 
End; 
{-----------------------------------------------------------------------} 
{Процедура вывода элементов двумерного массива на экран в 
виде матрицы} 
Procedure Vivod2(k,p:Integer; x:tabl); 
Var i,j:Integer; 
Begin 
For i := 1 to k do 
Begin 
For j:=1 to p do Write(x[i,j]:5); 
Writeln; 
End; 
End; 
{-------------------------------------------------------------------------} 
{Нахождение тех столбцов, все элементы которых четные} 
Procedure Chet(k,p:Integer; c:tabl); 
Var i,j,t:Integer; 
Begin 
For j:=1 to p do 
Begin 
t:=0; 
For i:=1 to k do If c[i,j] mod 2<>0 Then t:=1; 
If t=0 Then Writeln('В ',j:3,' столбце все элементы четные'); 
End; 
End; 
{-----------------------------------------------------------------------------} 
{Основная программа} 
Var n,m:Integer; a:tabl; 

---

144 
Begin 
Writeln('Ввести количество строк и столбцов'); 
Readln(n,m); 
Randomize; 
Wwod2(n,m,a); 
Writeln('Исходный массив'); 
Vivod2(n,m,a); 
Chet(n,m,a); 
End.