Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
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.
Правильно D )) lol ())))))
Function Dec2Bin(n:longint): string;
{ Перевод натурального десятичного n в систему счисления по основанию 2 }
var
s: string;
begin
s := '';
while n > 0 do
begin
if Odd(n) then s:='1'+s else s:='0'+s;
n := n div 2
end;
Dec2Bin := s;
end;
var
A:longint;
i,k:integer;
s:string;
begin
Write('Введите натуральное число А: '); Read(A);
Write('Введите номер бита i (счет с 1 справа налево): '); Read(i);
s:=Dec2Bin(A);
k:=Length(s);
if (i>0) and (i<=k) then Writeln('Значение бита: ',s[k+1-i])
else Writeln('Неверный номер бита')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число А: 37
Введите номер бита i (счет с 1 справа налево): 5
Значение бита: 0
Объекты , свойства , + кони. 12 , 6 , 24 , + 36.