Цикл в фрагменте программыp:=1;repeatp:=p*0.1until p>0.1;будет исполнен:1. 2 раза2. бесконечное число раз3. О раз4. 3 раза5. 1 раз​

ответ:гие значения, см. Шкала (значения).

Шкала (измерительная шкала) — это знаковая система, для которой задано отображение (операция измерения), ставящее в соответствие реальным объектам, ситуациям, событиям или процессам тот или иной элемент (значение) шкалы. Формально шкалой называют кортеж, <X, φ, Y>, где X — множество реальных объектов, ситуаций, событий или процессов, φ — отображение, Y — множество элементов (значений) знаковой системы[1][2].

Различные типы измерительных шкал широко используются в теоретической и практич

Объяснение:

Type Mass = array[1..50,1..50] of integer;

Procedure ABC(Var A:Mass; Var k,Min:integer);
Var
   i,j:integer;
Begin
Write('M = ');ReadLn(i);
Write('N = ');ReadLn(j);
For i:= 1 to i do
    Begin
    For j:= 1 to j do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
{Поиск минимума}
Min:=A[1,1];
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]<Min then Min:=A[i,j];
{Подсчёт минимумов}
k:=0;
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]=Min then k:=k+1;
End;
Var
   A,B,C,D:Mass;
   Max,kMin,Min:integer;
Begin
Randomize;
WriteLn('Массив A(M,N):');
ABC(A,kMin,Min);
WriteLn('Min(A) = ',Min);
WriteLn('kMin(A) = ',kMin);
Max:=kMin;
WriteLn;

WriteLn('Массив B(M,N):');
ABC(B,kMin,Min);
WriteLn('Min(B) = ',Min);
WriteLn('kMin(B) = ',kMin);
if Max<kMin then Max:=kMin;
WriteLn;

WriteLn('Массив C(M,N):');
ABC(C,kMin,Min);
WriteLn('Min(C) = ',Min);
WriteLn('kMin(C) = ',kMin);
if Max<kMin then Max:=kMin;
WriteLn;

WriteLn('Массив D(M,N):');
ABC(D,kMin,Min);
WriteLn('Min(D) = ',Min);
WriteLn('kMin(D) = ',kMin);
if Max<kMin then Max:=kMin;
WriteLn;
WriteLn('Max(kMin(A),kMin(B),kMin(C),kMin(D)) = ',Max);
End.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure MaxMas(s:string; var max:integer);
begin
  Writeln('*** Массив ',s,' ***');
  var m:=ReadlnInteger('Количество строк: ');
  var n:=ReadlnInteger('Количество столбцов: ');
  Writeln('Вводите:');
  var a:=ReadMatrInteger(m,n);
  max:=a.ElementsByRow.Max
end;

begin
  var ma,mb,mc:integer;
  MaxMas('A',ma);
  MaxMas('B',mb);
  MaxMas('C',mc);
  Writeln('Максимальный элемент равен ',max(ma,max(mb,mc)))
end.

Пример
*** Массив A ***
Количество строк:  2
Количество столбцов:  2
Вводите:
3 6 -2 11
*** Массив B ***
Количество строк:  3 2
Количество столбцов:  2
Вводите:
-5 0 7 9 12 6
*** Массив C ***
Количество строк:  2
Количество столбцов:  4
Вводите:
-11 8 9 5 11 14 8 -6
Максимальный элемент равен 14