Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.11.2011, 22:31   #1
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию С генерировать одновременно как отрицательные так и положительные числа в массиве.

Код:
Program Mas;
Uses crt;
const dd=30;
Type
    Massiv = Array [1..100] Of integer;
Var
   Mass: Massiv;
    i, n : Integer;

Procedure Mimelem (N:integer;Mass:Massiv);
var min:integer;
   begin
    min:=Mass[1];
    for i:=1 to n do begin
        if min>Mass[i] then min:=Mass[i];
    end;
    writeln('Minimalniy element: ',min:3);
    writeln;
   end;

Procedure Absolut (N:integer;Mass:Massiv);
var ser:real;  {seredne arufmetu4ne za absolut velu4unoy}
    sum:real;
   begin
    sum:=0;
    for i:=1 to n do begin
       if Mass[i]<0 then begin
          sum:=sum+Mass[i];
          ser:=abs(sum/n)
       end;
    end;
    writeln(sum:1:2);
    writeln(ser:1:2);
   writeln;
   end;

Begin
  clrscr;
  randomize;
  Write ('Vveditb rozmirnist masuvy (ale ne ,bilshe nig 100) : ');
  ReadLn (n);
  Writeln('Vvedena poslidovnist 4usel');
  for I:=1 To n Do Begin
    Mass[i]:=-9+random(dd-1);
    write(Mass[i]:3);
  End;
writeln;
Mimelem(N,Mass);
Absolut(N,Mass);
readln;
end.
Разобрался и убёг.Кому надо юзайте.)
Люблю на ты.Я человек простой

Последний раз редактировалось Leshii; 13.11.2011 в 23:23.
Leshii вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Random. отрицательные и положительные числа Seran4ek Общие вопросы Delphi 10 18.03.2014 22:16
Задан вектор X[20]. Положительные числа переписать в массив Y, а отрицательные в массив W leha_demi Помощь студентам 2 24.09.2011 18:12
В двумерном массиве, в каждоый строке сначала разместить положительные эелементы, потом отрицательные эел Катя) Паскаль, Turbo Pascal, PascalABC.NET 7 15.04.2011 22:32
положительные или отрицательные значения в конце строки olimpus Microsoft Office Excel 2 06.02.2011 10:41
В заданном массиве C(8) переставить элементы так щеб сначала шли все отрицатильние а затем положительные. basav1k Помощь студентам 2 26.05.2010 21:10