Ответить
Новый вопрос

Здравствуйте,даны две задачи,нужно написать программу(Паскаль).Пожалуйста распишите свои действия,ничего не понимаю.Кто понимает-объясните,пожалуйтса.
1.Найти последнее вхождение наименьшего элеманта массива.
2.Найти количество элементов равных наибольшему элементу массива.

    Ответы на этот вопрос
  1. 1)

    Const
       N = 33;
    Var
       A:array[1..N] of integer;
       i,m:integer;
    Begin
    {Заполнение массива}
    For i:= 1 to N do
        Begin
        A[i]:=random(21)-10;
        Write(A[i], )
        End;
    WriteLn;
    {Поиск минимального элемента}
    m:=1;
    For i:= 2 to N do
        if A[i]<=A[m] then m:=i;
    WriteLn(Min = A[,m,] = ,A[m]);
    End.

    Пример:
    6 0 -4 10 2 -4 -3 -9 10 -5 1 0 -8 2 2 9 -3 -6 8 10 -6 -9 9 -2 -6 2 -1 -2 6 6 -2 -3 -4
    Min = A[22] = -9

    2)

    Const
       N = 33;
    Var
       A:array[1..N] of integer;
       i,M,k:integer;
    Begin
    {Заполнение массива}
    For i:= 1 to N do
        Begin
        A[i]:=random(21)-10;
        Write(A[i], )
        End;
    WriteLn;
    {Поиск наибольшего элемента}
    M:=A[1];
    For i:= 2 to N do
        if A[i] > M then M:=A[i];
    {Поиск кол-ва максимальных элементов}
    k:=0;
    For i:= 1 to N do
        if A[i] = M then k:=k+1;
    WriteLn(k_Max = ,k)
    End.

    Пример:
    -10 3 10 -10 1 3 -9 -1 10 0 -10 3 -10 10 -4 -2 -8 3 10 -10 -9 3 -1 -2 9 -5 -6 -5 -5 -5 2 0 8
    k_Max = 4

  2. Искать другие ответы


Нет ответа Отправить свой ответ