Предмет: Информатика, автор: svyatoyglukov

написать программу для нахождения среднего арифметического значения для массива. Массив заполняется следующим образом for i:=1 to 5 do a[i]:=2*i-1

Ответы

Автор ответа: Аноним
1

var

 a : Array [1..5] of integer;

 b , i : integer;

begin

b:=0;

for i:= 1 to 5 do

 begin

   a[i] := 2 * i - 1;

   b := b + a[i] ;

 end;

 writeln((b/5));

end.


Похожие вопросы
Предмет: Геометрия, автор: danila537
Предмет: Математика, автор: настя2532