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

UptoLike

ВУЗ: 

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

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

Рубрика: 

132
f:text;
begin
assign(f,'fmas2.txt');
reset(f);
writeln;
writeln('Дана квадратная матрица.Подсчитать кол–во положительных');
writeln('элементов,лежащих выше главной диагонали.');
writeln('Данная матрица');
for i:=1 to 5 do
for j:=1 to 5 do
read(f,a[i,j]); {считывание массива из файла}
for i:=1 to 5 do { вывод на экран матрицы }
begin
for j:=1 to 5 do
write(a[i,j]:3);
writeln;
end;
k:=0;
for i:=1 to 5 do
begin
for j:=1 to 5 do
if (i<j) and (a[i,j]>0) then {поиск количества элементов по условию}
k:=k+1;
end;
writeln('Результат');
writeln(k); {вывод результата}
end.
Пример 7.21. Найти сумму четных элементов, расположенных ниже
побочной диагонали
program mas3;
const a:array[1..5,1..5] of integer=((0,1,2,3,4),
(5,6,7,8,9),
(0,1,2,3,4),
(5,6,7,8,9),
(0,1,2,3,4));
var
i,j:byte;
k:integer;
begin
writeln('Дана матрица:');
for i:=1 to 5 do
begin

Страницы