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
Сфера и Цилиндр
Объяснение: