Перевод с языка Паскаль в С
помогите пожалуйста перевести с языка паскаль в СИ:star2::grud:
var a:array[1..n] of real; s:real; b:array[1..n] of real; i:integer; begin for i:=1 to n do begin write ('a[',i,']='); read (a[i]); end; s:=0; for i:=1 to n do; s:=s=a[i]; s:=s/n; for i:=1 to n do b[i]:=a[i]-s; writeln ('s=',s:6:2); for i:=1 to n do writeln ('b[',i,']=',b[i]:6:2); end. |
Цитата:
Успехов! |
Часовой пояс GMT +4, время: 09:58. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.