Составить Схему Алгоритма И Программу Циклического Вычислительного Про

Sabishka13

New Member
23.01.2013
2
0
#1
Написать программу в Turbo Pascal
Составить схему алгоритма и программу циклического вычислительного процесса.
Ввод данных выполнить с помощью оператора For. Для реализации циклических процедур использовать операторы цикла, указанные в задании. Программу снабдить комментариями.
Дана целочисленная матрица А(4x4). Подсчитать сумму и количество четных чисел. Перебор элементов исходной матрицы вести по столбцам. Использовать два оператора While.
 

Senset

Well-Known Member
11.09.2006
136
0
#2
Код:
var i,j,sum,mod2count:integer;
a:array[1..4,1..4] of integer;
begin
for i:=1 to 4 do //цикл перебора строк
for j:=1 to 4 do //цикл перебора столбцов
begin
write('A[',i,',',j,']=');  //Выводим надпись вида "А[i,j]="
read(a[i,j]); end;	  //Считываем число в матрицу
end;
//К этому моменту матрица введена.
//Перебираем для подсчета суммы и количества четных чисел
i:=1;
mod2count:=0; //здесь будет количество четных элементов
sum:=0;			//Здесь будет сумма четных элементов
while i<5 do
begin
j:=1;
while j<5 do
begin
if a[j,i] mod 2 = 0 then  //смотрим по столбцу
begin
mod2count:=mod2count+1; //нашли четное число и суммируем :-)
sum:=sum+a[j,i];
end;
j:=j+1; //двигаем счетчик второго цикла
end;
i:=i+1; //двигаем счетчик первого цикла
end;
writeln('Сумма четных=Sum=',sum);
writeln('Количество четных=',mod2count);
end.