• ПОЖАЛУЙСТА 50 БАЛЛОВ
    paskal abcnet
    дан массив чисел,вводимый в ручную ,найти значение максимального элемента и определить их

Ответы 2

  • PROGRAM for_znanijacom;

    CONST М = 100;

    VAR MAS : ARRAY[1..M] OF INTEGER;

    I, MAX, K, N : INTEGER;

    BEGIN

    WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');

    READLN(N);

    WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА ');

    READLN(MAS[1]);

    MAX := MAS[1];

    K:=1;

    FOR I := 2 TO N DO

    BEGIN

    WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА ');

    READLN(MAS[I]);

    IF MAX<MAS[I] THEN

    BEGIN

    MAX := MAS[I];

    K:= 1

    END

    ELSE

    IF MAX = MAS[I] THEN К := K+1;

    END;

    WRITELN('MAX =', MAX, 'ЭТИХ ЭЛЕМЕНТОВ', К)

    END.

  • PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := ReadArrInteger(ReadInteger('n='));

     var max := a.Max;

     var i := a.IndexesOf(t -> t = max).ToArray;

     Print('Максимум, равный', max, 'у элемента(-ов) номер');

     i.Select(t -> t + 1).Println(', ')

    end.

    Примерn= 15-13 16 6 -12 -14 4 -12 -12 12 6 -10 2 16 -7 8Максимум, равный 16 у элемента(-ов) номер 2, 13
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years