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

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

  1. MeDVeD001

    MeDVeD001 Гость

    Репутация:
    0
    здравствуйте, задача составить одномерный массив из 20 чисел, в нем найти макс. и мин. эллемент и поменять их местами.
    Код:
    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

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

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

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

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