Const n=50; Var a:array[1..n]of integer; k,i,s:integer; begin for i:=1 to n do begin a[i]:=random(101)-50; write(a[i]:4); if a[i]<0 then begin s:=s+a[i]; k:=k+1; end; end; writeln; if k<>0 then writeln(s/k) else writeln('Нет отриц') end.
Если в первом примере y=x^2( X в квадрате), то программа будет выглядеть следующим образом: Program pr1; var y,x:real; begin writeln('Введите значение x'); readln(x); y:=sqr(x); writeln('ответ:', y); end.
Если же у тебя в первом функция y=x*2 ( X умножить на 2), то программа будет выглядеть так:
Program pr1; var y,x:real; begin writeln('Введите значение x'); readln(x); y:=x*2; writeln('ответ:', y); end.
2. Program pr2; var a,b,S:real; begin writeln('Введите сторону a'); readln(a); writeln('Введите сторону b'); readln(b);S:=a*b; writeln('ответ:', S); end.
Если в первом примере y=x^2( X в квадрате), то программа будет выглядеть следующим образом: Program pr1; var y,x:real; begin writeln('Введите значение x'); readln(x); y:=sqr(x); writeln('ответ:', y); end.
Если же у тебя в первом функция y=x*2 ( X умножить на 2), то программа будет выглядеть так:
Program pr1; var y,x:real; begin writeln('Введите значение x'); readln(x); y:=x*2; writeln('ответ:', y); end.
2. Program pr2; var a,b,S:real; begin writeln('Введите сторону a'); readln(a); writeln('Введите сторону b'); readln(b);S:=a*b; writeln('ответ:', S); end.
n=50;
Var
a:array[1..n]of integer;
k,i,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i]:4);
if a[i]<0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln;
if k<>0 then
writeln(s/k)
else
writeln('Нет отриц')
end.