using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace example
{
class Program
static void Main(string[] args)
double x = 0;
Console.WriteLine("Введите число n");
int n = int.Parse(Console.ReadLine());
for (int i = 0; i < n; i++)
Console.WriteLine("Введите " + (i+1) +" число");
x =x + int.Parse(Console.ReadLine());
}
x = x / n;
Console.WriteLine("среднее арифметическое целых чисел составило: "+ x);
Console.ReadLine();
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln(' Ishodnii massiv '); writeln;
//Заполним массив случайными числами
for i := 1 to n do
v[ i]:=random(100)-50;
write(v[ i]:4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i:=1 to n-1 do
for j:=i+1 to n do
if v[ i]>v[ j] then
b:=v[ i];
v[ i]:=v[ j];
v[ j]:=b;
write(' Otsortirovannii massiv ');writeln;writeln;
write('ot min k max: ');writeln;
write(v[ i]:4); writeln; writeln;
write('ot max k min: '); writeln;
for i := n downto 1 do
readln;
end.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace example
{
class Program
{
static void Main(string[] args)
{
double x = 0;
Console.WriteLine("Введите число n");
int n = int.Parse(Console.ReadLine());
for (int i = 0; i < n; i++)
{
Console.WriteLine("Введите " + (i+1) +" число");
x =x + int.Parse(Console.ReadLine());
}
x = x / n;
Console.WriteLine("среднее арифметическое целых чисел составило: "+ x);
Console.ReadLine();
}
}
}
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln(' Ishodnii massiv '); writeln;
//Заполним массив случайными числами
for i := 1 to n do
begin
v[ i]:=random(100)-50;
write(v[ i]:4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i:=1 to n-1 do
for j:=i+1 to n do
if v[ i]>v[ j] then
begin
b:=v[ i];
v[ i]:=v[ j];
v[ j]:=b;
end;
writeln;
write(' Otsortirovannii massiv ');writeln;writeln;
write('ot min k max: ');writeln;
for i := 1 to n do
write(v[ i]:4); writeln; writeln;
write('ot max k min: '); writeln;
for i := n downto 1 do
write(v[ i]:4);
readln;
end.