Question

Даны описания:
Type Linia =array (1...7) of integer;
Var x, y : linia ;

Напиши программу, которая подсчитывает произведение последних пяти элементов переменной y.

Answer 1

// С циклом:

type Linia=array[1..7] of integer;

var

 x, y : Linia;

 Proizvedenie, i: integer;

begin

 Proizvedenie := 1;

 

 for i := 3 to 7 do

 begin

   Proizvedenie := Proizvedenie * y[i];

 end;

 

 WriteLn(Proizvedenie);

end.

// Без цикла

type Linia=array[1..7] of integer;

var

 x, y : Linia;

 Proizvedenie, i: integer;

begin

 Proizvedenie := y[7] * y[6] * y[5] * y[4] * y[3];

   

 WriteLn(Proizvedenie);

end.