Написать программу на языке pascal. даны действительные числа а₁, а₂, а₂₀. вычислить их сумму.

144

359

Посмотреть ответы 2

Ответы на вопрос:

Viktoria11112222000

Информатика

4,7(63 оценок)

Const n = 20; var a: array[1..n] of real; i: integer; s: real; begin randomize; s: =0; write('исходный массив a(',n,'): '); for i: = 1 to n do begin a[i]: =random*(n*2+1)-n; write(' ',a[i]: 0: 3); s: =s+a[i]; end; writeln; writeln('s = ',s); end.