Найти сумму пяти элементов массива случайными числами из интервала [-20;20] Массивом плиз
Массива, состоящего из 5 элементов, или пяти каких-то конкретных элементов?
Из 5 случайных чисел
На всякий случай уточню, массив состоит всего из 5 элементов. И нужно найти сумму этих элементов. Или в массиве элементов может быть и 20, и нужно найти сумму, например, первого, второго, пятого, десятого, и семнадцатого?
Const N = 5; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исхдный массив:'); For i:= 1 to N do Begin A[i]:=random(41)-20; Write(' ',A[i]); S:=S+1; End; WriteLn; WriteLn('Сумма элементов: ',S); End.
Спасибо большое