Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:

program Test;
var z:array[1..50] of real;
i:integer;|:real;
begin
l:=0;
for i:=1 to 50 do
begin
readln(z[i]);
l:=I+2z[1]*z[1];
end;
l:=sqrt(1);
writeln(l);
readln;
end.
Comments: