Организация сложных циклов в Turbo Pascal.

Question

Составить схему алгоритма и программу циклического вычислительного процесса. Ввод данных выполнить с помощью оператора For. Для реализации циклических процедур использовать операторы цикла, указанные в задании. Программу снабдить комментариями. Дана целочисленная матрица А (4x4). Подсчитать сумму и количество четных чисел. Перебор элементов исходной матрицы вести по столбцам. Исполь¬зовать два оператора While..Организация сложных циклов. . Ввод данных выполнить с помощью оператора For. Для реализации циклических процедур использовать операторы цикла, указанные в задании. Программу снабдить комментариями. Дана целочисленная матрица А (4x4). Подсчитать сумму и количество четных чисел. Перебор элементов исходной матрицы вести по столбцам. Исполь¬зовать два оператора While.

Oybek Karimov · Accepted Answer

uses crt; 
var 
a:array[1..4,1..4] of integer; 
i,j,k,sum:integer; 
begin 
clrscr; 
for i:=1 to 4 do 
 begin 
 for j:=1 to 4 do 
 read(a[i,j]); 
 end; 
writeln; 
i:=1; 
j:=1; 
k:=0; 
sum:=0; 
while j<=4 do 
 begin 
 while i<=4 do 
 begin 
 if not odd(a[i,j]) then 
 begin 
 k:=k+1; 
 sum:=sum+a[i,j]; 
 end; 
 i:=i+1; 
 end; 
 i:=1; 
 j:=j+1; 
 end; 
 writeln(k,' ', sum); 
end.