4. дан алгоритм в виде фрагмента блок-схемы. запишите его на алгоритмическом языке
да
нет
да
нет
ү2
s2
s3
vita
|

Question

Информатика: 4. дан алгоритм в виде фрагмента блок-схемы. запишите его на алгоритмическом языке да нет да нет ү2 s2 s3 vita |

Милята240106 · 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]. при функции определить минимальный элемент в каждом

4. дан алгоритм в виде фрагмента блок-схемы. запишите его на алгоритмическом языке да нет да нет ү2 s2 s3 vita |

MOGZ ответил

4. дан алгоритм в виде фрагмента блок-схемы. запишите его на алгоритмическом языке
да
нет
да
нет
ү2
s2
s3
vita
|