оформить отчет в виде реферата

[венерочка]

1)сформировать одномерный массив целых чисел,используя датчик случайных чисел.
2)распечатать полученный массив.
3)поменять местами минимальный и максимальный элементы массива.
4)удалить из массива все элементы превышающие его среднее значение более,чем на 10%.
! а)При этом написать функции,указанные в варианте.массив и его размер должны передаваться в функцию как параметры.
! б)написать основную программу,вызывающие эти функции.
оформить отчет в виде реферата,в котором указать текст функций в порядке указанных заданий,текст функции main,вызывающий функции для обработки массива

[galblch]

Задание, честно говоря, пустяковое... Тебе надо просто для зачета, да?
это не бесплатно тогда...
предложения в личку...

[венерочка]

да.за скока примерно?

[chesser]

1)сформировать одномерный массив целых чисел,используя датчик случайных чисел.
2)распечатать полученный массив.

uses crt;
type
 Ar=array[1..100] of Integer;
var
 A: Ar;
 i, j, n, tmp: integer;
 Imax, Imin: integer;
 Aver, H: real;
 Sum: real;
 k: boolean;
begin
 clrscr;
 write('n=');
 readln(n);
 randomize;
 for i:=1 to n do
  A[i]:=random(100)-random(50);
 writeln('Massiv:');
 for i:=1 to n do
  write(A[i]:4);
 writeln;

3)поменять местами минимальный и максимальный элементы массива.

Imax:=1;
 Imin:=1;
 for i:=2 to n do
  if A[i]<A[Imin] then
   Imin:=i
  else
  if A[i]>A[Imax] then
   Imax:=i;
 writeln('Max: (',Imax, ')=',A[Imax]);
 writeln('Min: (',Imin, ')=', A[Imin]);
 tmp:=A[Imax];
 A[Imax]:=A[Imin];
 A[Imin]:=tmp;
 writeln('Massiv posle perestanovki Max i Min:');
 for i:=1 to n do
  write(A[i]:4);
 writeln;

4)удалить из массива все элементы превышающие его среднее значение более,чем на 10%.

 Sum:=0.0;
 for i:=1 to n do
  Sum:=Sum+A[i];
 Aver:=Sum/n;
 writeln('Srednee: ', Aver:7:2);
 H:=Aver+abs(0.1*Aver);
 i:=1;
 while i<=n do
 begin
  k:=false;
  if A[i]>H then
   begin
    for j:=i to n-1 do
     A[j]:=A[j+1];
    k:=true;
    n:=n-1;
   end;
  if k=false then
   i:=i+1;
 end;
 writeln('Massiv posle udaleniya elementov:');
 for i:=1 to n do
  write(A[i]:4);
 writeln;

Функции и процедуры сами оформите.

[венерочка]

мне нужно написать прогу на языку С++

[chesser]

Простите меня, не знал об этом

[alexcoder]

Мне кажется не составит труда переделать из паскаля в С++, было бы желание. За Вас, венерочка, делать это никто не будет. По крайней мере бесплатно. Так что либо пытайтесь сами, и спрашивайте что не получается, либо во фриланс.
З.Ы.

оформить отчет в виде реферата,в котором указать текст функций в порядке указанных заданий,текст функции main,вызывающий функции для обработки массива

No comments...

[венерочка]

на паскале я и сама могу((((

вот в том то и дело что я С++ вообще незнаю((((может подскажете какие нибудь хорошие учебники по С++?или поможете разобраться?=)Пожалуйста....

[coNsept]

ICQ: 647929109
SKYPE: brain_b8d075

Пишите, сделаем быстро, качественно и не дорого.