Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.
Очередность такая сначала отрицание Y затем сложение отрицания Y и X, затем отрицание Z и сложение отрицания Z с тем что вышло от предыдущего сложения
|x|y|z|1|2|3|4
|0|0|0|1|1|1|1
|0|0|1|1|1|0|1
|0|1|0|0|0|1|1
|0|1|1|0|0|0|0
|1|0|0|1|1|1|1
|1|0|1|1|1|0|1
|1|1|0|0|1|1|1
|1|1|1|0|1|0|1
хорошо хоть не попросили многочлен жигалкина
1)деловая бумага;2)подтверждает факт или право
Var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=a*b/(a*a)+b*b+1;
writeln('c = ',c);
end.
Пример:
a = 2
b = 5
c = 28.5