Алгоритмы и программы. Афанасьева Т. В - 131 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

131
a:arr;
i,j,p:integer;
begin
writeln('Задание: в двумерном массиве подсчитать');
writeln(' сумму элементов в каждом');
writeln(' столбце. ');
writeln('исходный массив 3*3');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln (' Результат:');
for j:=1 to n do
begin
p:=0;
for i:=1 to n do
p:=p+a[i,j];
writeln (j,' стобец: сумма=', p);
end;
readln;
end.
Рассмотрим задачи, в которых требуется выполнить поэлементную
обработку некоторых компонент массива, удовлетворяющих опреде-
ленному условию:
a) только положительных, отрицательных, кратных заданному числу;
б) в четных или нечетных столбцах или строках.
Для проверки
условий можно использовать следующие условные
операторы:
if (i mod 2=0) and (j mod 2=0) then ...{четность}
if (i=j).... на главной диагонали
if (i<j).... выше главной диагонали
if (i>j).... ниже главной диагонали
if (i+j=N+1)... на побочной диагонали
if (i+j<N+1)... выше побочной диагонали
if (i+j>N+1)... ниже побочной диагонали
Пример 7.20. Дана квадратная матрица. Подсчитать количество
положительных элементов, лежащих выше главной диагонали.
program mas2;
var
a:array[1..5,1..5] of integer;
i,j:byte;
k:integer;

Страницы