Новые сообщения · Правила  
  • Страница 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
Поиск: