Ребус — это слово или фраза, закодированная с комбинации фигур, букв и знаков.
Расшифруй данное сообщение!
'цапля 'л'кит елка

Question

Информатика: Ребус — это слово или фраза, закодированная с комбинации фигур, букв и знаков. Расшифруй данное сообщение! цапля л кит елка

AlexisA031117 · Accepted Answer

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

function Min(a:array of integer):=a.Min;

procedure Max(a:array of integer; var mx,imx:integer);
begin
imx:=a.IndexMax; mx:=a[imx]; imx+=1;
end;

begin
var a:=ReadArrInteger('А:',5);
var b:=ReadArrInteger('B:',7);
var c:=ReadArrInteger('C:',9);
var emax,imax,gmax,lmin:integer;
gmax:=Min(a);
Max(a,emax,imax); Writeln('A: min=',gmax,', маx=',emax,' [',imax,']');
lmin:=Min(b);
Max(b,emax,imax); Writeln('B: min=',lmin,', маx=',emax,' [',imax,']');
gmax:=Max(gmax,lmin);
lmin:=Min(c);
Max(c,emax,imax); Writeln('C: min=',lmin,', маx=',emax,' [',imax,']');
gmax:=Max(gmax,lmin);
Writeln('Максимальный из минимумов равен ',gmax)
end.

Б) ввести три массива а[1..5], в[1..7], с[1..9]. при функции определить минимальный элемент в каждом

Б) ввести три массива а[1..5], в[1..7], с[1..9]. при функции определить минимальный элемент в каждом

Ребус — это слово или фраза, закодированная с комбинации фигур, букв и знаков. Расшифруй данное сообщение! 'цапля 'л'кит елка

MOGZ ответил

Ребус — это слово или фраза, закодированная с комбинации фигур, букв и знаков.
Расшифруй данное сообщение!
'цапля 'л'кит елка