Помогите решить задачу пожалуйста

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Программа, которая генерирует последовательность из 10 чисел в диапазоне от 1 до 30 и вычисляет их среднее арифметическое!

№1 | Автор: mastero | 2011-05-18, 20:36 | Изменено: mastero - Ср, 2011-05-18, 20:37 | Репутация: [ + 0 ]

Как понять последовательность из 10 чисел? Заполнить рандомно или они должны быть как-то связанны между собой?

№2 | Автор: HWOARANG | 2011-05-18, 20:38 | Репутация: [ + 20 ]

Я не знаю, там вот такое условие было написано

Добавлено (18.05.11, 20:41)
---------------------------------------------
Скорей всего рандомно

№3 | Автор: mastero | 2011-05-18, 20:41 | Репутация: [ + 0 ]

uses crt;
var a:array[1..10] of byte; i:byte; sum:integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=random(30)+1; sum:=sum+A[i]; end;
writeln (sum/10:2:4);
readln
end.

№4 | Автор: HWOARANG | 2011-05-18, 20:44 | Изменено: HWOARANG - Ср, 2011-05-18, 23:22 | Репутация: [ + 20 ]

i:byte;sum:integer;

Вот с таким больше соглашусь:)
А-то вдруг оно 10 раз выберет 26+?)))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№5 | Автор: Berestovskiy | 2011-05-18, 22:25 | Репутация: [ + 211 ]

Что-то мне подсказывает что такого не произойдет )) Но все таки мало ли что может произойти ))

№6 | Автор: HWOARANG | 2011-05-18, 23:22 | Репутация: [ + 20 ]

Шанс из миллиона, но он есть(с)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№7 | Автор: Berestovskiy | 2011-05-18, 23:54 | Репутация: [ + 211 ]

Помогите решить задачу пожалуйста

Страница 1 из 1
1

прикладная математика