Дан одномерный массив на 30 элементов, заполненный случайными числами от -100 до 100. требуется определить и вывести значение и номер максимального элемента. если таких элементов несколько, вывести все номера элементов, имеющих максимальное значение в одной строке, сами значения – в другой строке pascalabc.net
блашер
2
08.03.2019 17:29
3
Другие вопросы по теме Информатика
cooldude28
06.09.2019 05:00
Mushvi
06.09.2019 05:00
марья49
06.09.2019 05:00
ΛXΞL
06.09.2019 05:00
Nadachansky
08.05.2020 15:23
Denmatyanov
19.10.2020 05:39
antnonova
24.05.2019 05:00
Pro100Brotanich
24.05.2019 05:00
кика20051
24.05.2019 05:00
nastponomarenk
24.05.2019 05:00
Популярные вопросы
- Чтобы получить 1 т. бумаги, надо вырубить лес площадью 900м^2. какую площадь...
2 - 25 площадь прямоугольника 33 см2. найти его стороны, если периметр прямоугольника...
3 - Сравните дроби и запишите результат сравнения с знаков , ,= а) 7/8 и 3/4 б)...
1 - 15 в треугольнике мрт, угол т равен 150 градусов, тм=2м, мр=6м. найти sin p?...
2 - Оля петя и катя принесли в столу 3 вазы .в вазах у оли и пети было по 3 яблока...
3 - Зерно + зерно колос надо буквы заменить цифрами...
3 - Составьте прямую речь поймал мальчик в речке десяток раков, сложил их в корзинку,...
1 - Вкаклм слове пропущена буква е в корне? на вып..чка...
3 - Решите в столбик можно картинкой если можете 917180: 1516...
3 - Пройдено 3/4 намеченного пути и осталось пройти 12 км. сколько километров намечено...
2
const
n = 30;
var
mx, i: integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
mx := -101;
for i:=1 to n do
if a[i] > mx then
mx := a[i];
for i:=1 to n do
if a[i] = mx then
write(i, ' ');
writeln();
write(mx)
end.