// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
var y:=ArrRandom(n,1,100); y.Println(', ');
var imax:=0;
var imin:=0;
for var i:=1 to n-1 do
if y[i]>y[imax] then imax:=i
else
if y[i]<y[imin] then imin:=i;
Swap(y[imax],y[imin]);
y.Println(', ')
end.
<u><em>Тестовое решение:</em></u>
n= 12
35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31
35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31
//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.
Using System;
class Calc
{
static void Main(string[] args)
{
double s = 0;
for (int i = 1; i < 11; i++)
{
s += (double)1 / i;
}
Console.WriteLine(s);
Console.ReadKey();
}
}
1)
var
x,y,s:real;
begin
readln(x,y);
s:=abs(x*y);
writeln(s:8:2);
end.
2)
var
a:integer;
begin
readln(a);
if a mod 2=0 then writeln("четное число")
else writeln("нечетное число")ж
end.
Видеокарта AMD Radeon HD 7970