Предмет: Информатика,
автор: KOTOVSKY438
Создайте массив из 50 элементов (диапазон 0..49) с помощью генератора случайных чисел из отрезка [-10;50]. Выведите массив "в строку". Подсчитать сумму элементов массива.
Нужна програма и , если можно, краткое описание идеи алгоритма и сам алгоритм.
Ответы
Автор ответа:
0
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
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
Автор ответа:
0
Похожие вопросы
Предмет: Математика,
автор: ikramowjeyhun
Предмет: Физика,
автор: i2R
Предмет: Химия,
автор: batyr31
Предмет: Литература,
автор: Abramova1