Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
const n = 10;
var a: array [1..N] of real;
i, k: integer;
s: real;
begin
randomize;
for i:=1 to n do
begin
a[i]:= random(10000, 50000);
write(a[i]:8:2,' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
s:=s/n;
writeln('ср.=',s:8:2);
k:=0;
for i:=1 to n do
if a[i]<s then a[i]:=a[i]*1.1
else if a[i]>s then k:=k+1;
writeln('k=',k);
for i:=1 to n do write(a[i]:8:2,' ');
writeln;
end.
Пример:
34973.00 16546.00 13691.00 41315.00 24650.00 44459.00 18117.00 37906.00 19255.00 17842.00
ср.=26875.40
k=4
34973.00 18200.60 15060.10 41315.00 27115.00 44459.00 19928.70 37906.00 21180.50 19626.20
Второе
(* обозначает неограниченное количество символов за место неё или вообще ни одного, а ? означает один любой символ)
33.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.
34.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=1 to n do
begin
p:=p+(1-(1/s*i));
end;
writeln(p);
readln;
end.
35.
function fact(i:integer):integer;
begin
if i=0 then fact:=1
else fact:=fact(i-1)*i;
end;
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=1 to n do
begin
p:=p+fact(i);
end;
writeln(p);
readln;
end.
37.
program fibonachchi;
VAR
n,F,F2,F1,I:integer;
begin
write ('Введите число:');readln (n);
F1:=1;
F2:=1;
if (n=1) or (n=2) then writeln ('Число фибоначи:1')
else
begin
FOR I:=3 to n do begin
F:=F1+F2;
F2:=F1;
F1:=F;
end;
writeln ('Число фибоначи:',F);
end;
end.
38. пишу сокращенно тело программы напишешь.
for i:=1 to n do
y:=y*2*n-1;
39.
for i:=1 to n do
y:=y*2*n;
40.
подключить модуль math или как там на паскале)
for i:=1 to n do
y=y+power(cos(x),i);
41.
h:=0.1;
for i:=1 to n do
y=y+sin(i);
i:=i+h;