Создайте массив из 50 элементов (диапазон 0..49) с помощью генератора случайных чисел из отрезка [-10;50]. Выведите массив "в строку". Подсчитать сумму элементов массива.Нужна програма и , если можно, краткое описание идеи алго...
Создайте массив из 50 элементов (диапазон 0..49) с помощью генератора случайных чисел из отрезка [-10;50]. Выведите массив "в строку". Подсчитать сумму элементов массива.
Нужна програма и , если можно, краткое описание идеи алгоритма и сам алгоритм.
Гость
Ответ(ы) на вопрос:
Гостьvar
i: integer;
s: integer;
a: array[0..49] of integer;
begin
s := 0;
Randomize;
for i := 0 to 49 do
begin
a[i] := random(60) - 10;
s := s + a[i];
write(a[i], ' ')
end;
writeln;
writeln('Сумма элементов массива ', s)
end.
Пример выполнения в среде PascalABC.NET:
46 10 18 47 16 20 3 7 27 -10 10 18 19 28 0 3 21 26 32 36 1 -8 36 32 44 25 35 -1 -4 45 30 35 28 -8 45 6 20 34 0 47 7 9 34 39 47 5 29 10 47 26
Сумма элементов массива 1072
ГостьДоброго времени суток!
Пожалста ;)
с Ув. Паук
Не нашли ответ?
Похожие вопросы