Дан массив Array[1..100]С помощью цикла присвоить, каждому элементу массива значение равное номер элемента умноженный на 3. напр
Дан массив Array[1..100] С помощью цикла присвоить, каждому элементу массива значение равное номер элемента умноженный на 3. например для массива А значение элемента А[1]=2, A[2]=6 A[3]=9 и т.д. В конце программа должна выводить на экран сумму всех элементов массива.
Var A :array[1..100] of integer; var i, S :integer; begin for i:=1 to 100 do A[i]:=i*3; S:=0; for i:=1 to 100 do S:=S+A[i]; Writeln('сумма элементов массива= ',s); <span>end.
или без лишнего цикла можно так var A :array[1..100] of integer; var i, S :integer; begin for i:=1 to 100 do begin A[i]:=i*3; S:=S+A[i]; end; Writeln('сумма элементов массива= ',s); <span>end.</span></span>