Нужно придумать в паскале abc свою ЗАДАЧУ математическую с помощью функций abc(x),sqr(x),sqrt(x),round(x),frac(x),int(x),random,random(x).В задаче должно быть хотя бы 2 функции из этих,помогите. Спасибо)

1

Ответы и объяснения

Лучший Ответ!
2013-11-09T15:54:40+00:00
Составить программу, которая заполняет одномерный массив случайными числами из интервала [-50:50] и выводит на экран только те элементы массива, квадратный корень из модуля которых больше пяти

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.