const
n=15;
var
a: array [1..n] of integer;
i,pr:integer;
begin
randomize;
pr:=1;
for i:=1 to n do
begin
a[i]:=random(101)-50;
if a[i]>0 then pr:=pr*a[i];
write(a[i]:4);
end;
writeln;
write(pr);
end.
Program z1;
var v,s,t = integer;
begin
readln(s);
readln(t);
v=s/t;
writeln(v);
end.
//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
Var
i,j,c,x,y:integer;
begin
c:=255;
x:=window.height div 8;
y:=60;
for i:=1 to 4 do
begin
for j:=1 to 8 do
begin
circle(x,y,window.height div 16);
floodfill(x,y,rgb(c,c,c));
c:=c-8;
x:=x+(window.height div 8);
end;
y:=y+window.height div 4;
x:=window.height div 8;
end;
end.
Var
a:array[1..n] of integer;
i, min, max,k:integer;
mid:real;
begin
write('Кол-во элементов массива: ');
readln(n);
for i:=1 to n do
readln(a[i]);
max:=0; k:=0;
for i:=1 to n do
if a[i]> max then max:=a[i];
min:=max;
for i:=1 to n do
if a[i]<min then min:=a[i];
mid:=(max+min)/2
for i:=1 to n do
if a[i]>mid then k:=k+1;
writeln(k,' чисел');
end.
Если просто написать формулу, то это выглядит так: R=D/K