Question

ПОМОГИТЕ С ЗАДАНИЕМ СРОЧНО
Найдите среднее арифметическое чисел: 5, 7, 3, используя цикл for, в ПаскальАВС.

Answer 1

Відповідь:

Program Average;

var

 sum, i: integer;

 nums: array[1..3] of integer = (5, 7, 3);

begin

 sum := 0;

 for i := 1 to 3 do

   sum := sum + nums[i];

 WriteLn('Среднее арифметическое: ', sum / 3);

end.

Answer 2

Ответ:

nums: array[1..3] of integer = (5, 7, 3);

begin

sum := 0;

for i := 1 to 3 do

sum := sum + nums[i];

Write Ln('Среднее арифметическое: ', sum / 3);

Объяснение: