Вычислить среднее арифметическое целых элементов массива с(10),заданного случайным образом.

@kisan · Регистрация: 24.10.2012

Помогите решить задачи

2.Вычислить среднее арифметическое целых элементов массива с(10),заданного случайным образом.

@ZeRo_31_rus · 24.10.2012, 17:31

Pascal

var
c : array [1..10] of Integer; 
i : Integer; {Индекс массива}
s : Real; 
begin
for i := 1 to 10 do
c[i] := random(10); 
s := 0;
s := s + m [ i ] ;
WriteLn('Srednee arifmet = ' ,s/10)
end.

@kisan · 24.10.2012, 17:58 **[ТС]**

ZeRo_31_rus,
Re: Вычислить среднее арифметическое целых элементов массива с(10),заданного случайным образом.

Pascal

var
c : array [1..10] of Integer; 
i : Integer; {Индекс массива}
s : Real; 
begin
for i := 1 to 10 do
c[i] := random(10); 
s := 0;
s := s + m [ i ] ;
WriteLn('Srednee arifmet = ' ,s/10)
end.

У меня выходит ошибка на:
s := s + m [ i ] ;

@ermolay · 24.10.2012, 18:07

ZeRo_31_rus, вы свою программу проверяли?

Pascal

var
  c: array [1..10] of Integer; 
  i: Integer; {Индекс массива}
  s: Real; 
 
begin
  randomize;
  s := 0;
  for i := 1 to 10 do
  begin
    c[i] := random(10); 
    write(c[i], ' ');
    s := s + c[ i ];
  end;
  writeln;
  WriteLn('Srednee arifmet = ', s / 10);
  readln;
end.

@kisan · 24.10.2012, 18:13 **[ТС]**

спасибо

@kisan 0 / 0 / 0 Регистрация: 24.10.2012 Сообщений: 21
		1
	Вычислить среднее арифметическое целых элементов массива с(10),заданного случайным образом. 24.10.2012, 15:05. Показов 4694. Ответов 4 Метки нет (Все метки) Помогите решить задачи 2.Вычислить среднее арифметическое целых элементов массива с(10),заданного случайным образом. 0

@kisan 0 / 0 / 0 Регистрация: 24.10.2012 Сообщений: 21
	24.10.2012, 18:13 [ТС]	5
	спасибо 0

Опции темы