*Н
*** Натали ***
Вычислить в паскале.
в файле in.txt дана матрица размерность = 3.
найти и вывести в out.txt сумму положительных элементов на главной диагонали.
в файле in.txt дана матрица размерность = 3.
найти и вывести в out.txt сумму положительных элементов на главной диагонали.
program prog;
var
i,j,a,sum:integer;
f:File of Integer;
begin
assign(f,'in.txt');
reset(f);
sum:=0;
for i:=1 to 3 do
for j:=1 to 3 do
begin
read(f,a);
if (i=j)and(a>0) then sum:=sum+a;
end;
Close(f);
assign(f,'out.txt');
rewrite(f);
write(f,sum);
close(f);
writeln('Данные успешно записаны в файл! Ответ: ', sum);
end.
Нашел и вывел. Ответ 3.