Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
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.

0 0

3 года назад

Файл размером 16 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите разме

Ирина010101 [7]

Он будет равен 64/4 = 16 Кбайт. Файл размером 16 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 512 бит в секунду. В ответе укажите одно число — размер файла в Кбайт.

0 0

1 год назад