Создайте массив из 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.
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
с Ув. Паук