Нужно придумать в паскале abc свою ЗАДАЧУ математическую с помощью функций abc(x),sqr(x),sqrt(x),round(x),frac(x),int(x),random,random(x).В задаче должно быть хотя бы 2 функции из этих,помогите. Спасибо)
More Questions From This User See All
Answers & Comments
uses crt;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
if (sqrt(abs(a[i]))>5) then writeln(a[i]);
end.