Var
a: array [1..12] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to 12 do
begin
a[i] := -20 + random(41);
writeln('A[', i:2, ']=', a[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to 12 do
begin
if a[i] < 0 then a[i] := -1;
writeln('A[', i:2, ']=', a[i]:3);
end;
readln
<span>end.</span>
Может быть вот так, мы писали что-то похожее в классе, только по другому сформулировано
program Chisla;
<span> </span><span>var a,n:integer; </span>
<span>begin </span>
writeln('a= ',a);
<span>readln(a); </span>
<span>if (a div 100 <9) and (a div 100 >=1) then inc(n); </span>
<span>writeln('n= ',n); </span>
<span> </span><span>end.
</span>Прошу прощения, если не то...
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
float x,y,s;
cin>>x>>y;
if(x>0)
s=(x*x+pow(y,3))/y;
else
if(x<0)
s=log(abs(pow(x,3)))+cos(y);
else
s=pow(sin(y),2.0/3);
cout<<s;
return 0;
}
Необходимо щёлкнуть ЛКМ(левой кнопкой мышью) и выбрать необходимый файл, который вам понадобился.