Question

СРОЧНО 2(А),НА ЛАЗАРУСЕ,ДАМ 40БАЛОВ​

Answer 1

Відповідь:

Пояснення:

Program massiv;

Uses crt;

Var a:array [1..5] of integer;

     min, s, i : integer;

Begin

 Clrscr;

 For i:=1  to 5 do

      Begin

      Writeln('Ââåä³òü', i, '-é åëåìåíò ìàñèâó  ');

      Readln (a[i]);

      End;

 s:=a[1];

 min:=a[1];

 For i:=2 to 5 do

      Begin

      s:= s*a[i];

      If a[i]< min then min:=a[i];

      End;

   Writeln('  M³í³ìàëüíèé åëåìåíò  ', min);

   Writeln('  Lîáóòîê åëåìåíò³â s=  ', s);

  End.