можно снять какой нибудь смешной сюжет
или страшилку
1) 2.25; 7,29; 9,61
<span>2) 1,5; приблизительно 2,7</span>
Так же как клаома и грогха
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.