Question

Задан массив, состоящий из 15 элементов целого типа. Определить сумму элементов, значения которых больше предпоследнего элемента
ABCPaskal

Answer 1

Відповідь:

var

 array: array[1..15] of integer;

 sum, i: integer;

begin

 sum := 0;

 for i := 1 to 15 do

 begin

   read(array[i]);

   if array[i] > array[14] then

     sum := sum + array[i];

 end;

 writeln(sum);

end.

Пояснення: