Вывести среднеарифметическое чисел

@greshnik92 · Регистрация: 01.12.2010

маассив 10 элементов выбирает числа рандомно, должен выводитт среднеарифметическое чисел

@Zanexess · 31.03.2011, 18:40

Pascal

uses crt;
var i, sum:integer;
a:array [1..10] of integer;
begin
sum:=0;
 For i:=1 to 10 do begin
  a[i]:=random(101);
  sum:=sum+a[i];
  Write (a[i]:4);
 end;
Writeln;
Writeln ('Среднее арифметическое равно ', sum/10);
end.

@greshnik92 0 / 0 / 0 Регистрация: 01.12.2010 Сообщений: 13
		1
	Вывести среднеарифметическое чисел 31.03.2011, 18:25. Показов 1435. Ответов 1 Метки нет (Все метки) маассив 10 элементов выбирает числа рандомно, должен выводитт среднеарифметическое чисел __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вывести среднеарифметическое чисел

Решение