Одномерный массив

Тема в разделе "Pascal and Delphi", создана пользователем MeDVeD001, 14 дек 2010.

  1. MeDVeD001

    MeDVeD001 Гость

    здравствуйте, задача составить одномерный массив из 20 чисел, в нем найти макс. и мин. эллемент и поменять их местами.
    Код (Delphi):
    program minImax;
    var

    A : array [1..100] of integer;
    I,n : byte;
    s,b,c,min,max : integer;


    begin
    writeln ('введите размерность массива  = 20');
    readln(n);
    for i:= 1 to n do
    A[i]:= random(b+c)-b;

    min:= A[1];
    for i:=2 to N do
    if A[i]<min then min:= A[i];

    max:= A[1];
    for i:=1 to N do
    if A[i]>max then max:=A[i];
    s:= max;
    max:= min;
    min:= s;

    Begin
    For i:=1 to N do
    Writeln('A[',I,']=', A[i]);
    readln;
    end;

    End.
    но выходят одни нули, подскажите в чем проблема, и как ввести размерность массива = 20 сразу а не методом ввода?

    Добавлено:
    а все понял - не ввел b и c))
    ток числа почемуто не меняются подскажите плиз в чем дело...
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    for i:=1 to 20 do

    вначале напиши
    randomize;

    и еще ты меняешь местами переменные min и max
    а надо элементы массива
    a[iMin] и a[iMax]
     
Загрузка...
Похожие Темы - Одномерный массив
  1. vbnoob
    Ответов:
    1
    Просмотров:
    974
  2. LifeT
    Ответов:
    1
    Просмотров:
    1.208
  3. Crock95
    Ответов:
    0
    Просмотров:
    1.278
  4. Dexet
    Ответов:
    1
    Просмотров:
    1.392
  5. dambaldor30
    Ответов:
    1
    Просмотров:
    1.145

Поделиться этой страницей