Dim a(10) as integers=0for i = 1 to 10a(i)=i * 2s=s + a(i)next iprint sendилиvar s,i: integer; a[1..10] of integer; begin s: =0; for i: =1 to 10 do begin a[i]: =i * 2; s: =s + a[i]; end; write (s); end.

alinalera71    1   21.06.2019 08:15    0