ТЕСТ Цикл з передумовою В яких із наведених операторів циклу тіло циклу не виконається жодного разу? так ні Х:=5; Whіle Х <5 do X := X+1; Х := 10; Whіle Х <= 10 do X := X+1; For A := 10 To 0 Do S = S + A; Х:=5; Whіle Х <5 do X := X+1; Х := 10; Whіle Х <= 10 do X := X+1; For A := 10 To 0 Do S = S + A; Визначте, які оператори реалізують дію:Знайти суму перших десяти натуральних чисел так ні Whіle A<10 do begin A:=A+1; S:=S+A end; For A:=1 To 10 do S:=S+A; If A < 10 Then begin A:=A+1; S:=S+A end; Whіle A<10 do begin A:=A+1; S:=S+A end; For A:=1 To 10 do S:=S+A; If A < 10 Then begin A:=A+1; S:=S+A end; Cкільки буде повторень циклу, якщо початкове значення А=13 While А > 9 do А:= А-1; У якому випадку відбудеться зациклювання? так ні N := 0; While N < 20 do N:=N-1; N := 0; While N < 20 do N:=N+1; N := 0; While N < 20 do F:=F+1; N := 0; While N < 20 do N:=N-1; N := 0; While N < 20 do N:=N+1; N := 0; While N < 20 do F:=F+1;

1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47

ответ:что такое атр. конц.

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

Объяснение:пример

в атоме много разных частиц, взаимодействующих друг с другом.