я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.
a[10],i,min,s,p:integer
randomize
for i=1 to 10 do
a[i]:=random(101);
min:=a[i];
s:=0
p:=1
for i=1 to 10 do begin
if a[i]<min then
min:=a[i];
if a[i]<0 then
s:=s+a[i];
if a[i] mod 3 = 0 then
p:=p*a[i];
end;
write('minimum=', min, ' summ=', s, ' umnosenie=', p);
end.
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
Данное выражение можно упростить:
(3n+√6n)/√3n = 3n / √3n + √6n / √3n = √3n * √3n / √3n + √(6n / 3n) = √3n + √2
Код PascalABC:
Const
Sqrt2 = Sqrt(2);
Function C(n:integer):real;
Begin
result:=Sqrt(3*n)+Sqrt2;
End;
Function Sum(n:integer):real;
Begin
result:=0;
For n:= 1 to n do
result:=result+C(n);
End;
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('x = ',Sum(n))
End.
Пример работы программы:
n = 3
x = 11.4241812374713
Примечание:
Чтобы программа работала на Turbo и Free Pascal, нужно заменить result, на имя функции, в которой он используется.