Написать программу на фортране. определить является ли заданная квадратная матрица 5-го порядка ортонормированный, то есть такой, в которой скалярное произведение в каждой пары различных строк равно 0, а скалярное произведение каждой строке на себя равно 1.

Const
  m=5;
  n=3;
var
  i,j,k:integer;
  a:array[1..m,1..n] of integer;
begin
  Randomize;
  Writeln('Исходный массив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(999)+1;
      Write(a[i,j]:4);
      if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
      end;
    Writeln
  end;
  if k>0 then begin
    Writeln('Искомые элементы');
    for i:=1 to m do
      for j:=1 to n do
        if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
    end
  else
    Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.

Пример работы программы
Исходный массив
 424 672 826
 546 587 413
 507 211 884
 252 781 518
 750 656 359
Искомые элементы
424

Когда вы устанавливаете новые программы в терминале, вы могли часто видеть появляющиеся информативные диалоговые блоки для обратной связи с вами. Типы диалоговых блоков различны: от простых диалогов да/нет до полей ввода, блоков паролей, чеклистов, меню и так далее. Преимущества использования таких дружественных к пользователю блоков очевидны, ведь они интуитивно направляют вас для ввода необходимой информации.

Когда вы пишите интерактивный шелл скрипт, вы на самом деле можете использовать такие диалоговые блоки для принятия ввода пользователя. Будучи предварительно установленной на всех современных дистрибутивах Linux, программа под названием whiptail может упростить процесс создания шелл скриптом диалоговых и информационных блоков в терминале наподобие тех, что графических интерфейсов, что кодируют Zenity или Xdialog для скриптов.

В этом уроке я опишу как с использованием whiptail создать дружественный пользователю диалоговые блоки в шел скрипте. Я также покажу Баш фрагменты кода различных диалоговых блоков, поддерживаемых в whiptail. (надеюсь подойдет)

Объяснение: