Үшінші буын компьютерлеріне тән жауаптың екі нұсқасын тап.
Дұрыс жауап саны: 2
Алғашқы бағдарламалау тілдері шығарылды
Бағдарламалардың үйлесімділігі
Дамыған операциялық жүйелер
1975 жылдан кейінгі кезең
200 мың оп/сек дейін жылдам әрекет ету​

uses GraphABC;

var pic : integer;

begin

SetWindowSize (700, 750);

ClearWindow (clBlack);

SetFontSize(20);

pic:=LoadPicture('bohr.jpg');

DrawPicture (pic, 30, 30, 180, 200);

SetFontColor(clGreen);

TextOut(100,240,'Бор');

pic:=LoadPicture('Galileo.jpg');

DrawPicture (pic, 210, 230, 200, 230);

SetFontColor(clBrown);

TextOut(250,470,'Галилео');

pic:=LoadPicture('Einstein.jpg');

DrawPicture (pic, 30, 460, 180, 210);

SetFontColor(clRed);

TextOut(50,680,'Эйнштейн');

pic:=LoadPicture('Leonardo.jpg');

DrawPicture (pic, 410, 60, 180, 210);

SetFontColor(clBlue);

TextOut(440,280,'Леонардо');

pic:=LoadPicture('Newton.jpg');

DrawPicture (pic, 410, 400, 190, 210);

SetFontColor(clPurple);

TextOut(450,620,'Ньютон');

end.

Объяснение:

PascalABC.NET 3.3 под девизом
"Памяти наших дедов посвящается..."

const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,SumDiag,k:integer;
  p:real;

begin
  Writeln('*** Исходная матрица ***');
  Randomize;
  SumDiag:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99;
      if i=j then SumDiag:=SumDiag+a[i,j];
      Write(a[i,j]:4)
      end;
    Writeln
    end;
  for i:=1 to 4*n do Write('-');
  Writeln;
  Writeln('Сумма элементов на главной диагонали ',SumDiag);
  p:=SumDiag/15;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<p then k:=k+1;
  Writeln('Искомое количество элементов ',k)
end.

Пример
*** Исходная матрица ***
  95  37  30  21  83 -99  48 -40  49 -19
 -66 -82  88 -24  70  14 -88  11  60  14
 -72 -80  90  25  68  23  91  66 -54  52
  33  16  25 -72  85  58 -39  44   8 -29
   8  78 -79  51  50 -61 -13 -87  87  66
  63 -45  94 -48  59  76  46 -94  53 -40
 -90  81 -85  96  47  18  -8  61 -10 -87
 -47 -33 -97 -10 -93 -51  98 -60  74  30
 -63  78  79 -21  89 -21  21 -26 -31 -91
 -88 -45  91 -51 -39  26  64 -75 -96 -67

Сумма элементов на главной диагонали -9
Искомое количество элементов 46