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

Question

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

Comments

Интересно, что означает "определить", если их уже "нашли"?

Answer 1

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

Answer 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

BEGIN

MAX := MAS[I];

K:= 1

END

ELSE

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

END;

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

END.