Положение максимального элемента в массиве. pascal и решить данную в двух программах. (хотя бы в одной).
Keklol55
3
05.04.2019 13:26
0
Другие вопросы по теме Информатика
danik174
25.11.2021 09:45
mironova0
25.11.2021 09:43
NazSha
23.09.2019 20:40
olgabykova2006
23.09.2019 20:40
abdullaxadeaygün
23.09.2019 20:40
askarova645
23.09.2019 20:40
привет980
23.09.2019 20:40
аленаzm
23.09.2019 20:50
Популярные вопросы
- Write a word from exercise 1 in each gap...
2 - Спільнокореневі слова до слів : Дріб, кінь ,ніч ,плід ,кіт ,камінь, ячмінь ,берізка,...
2 - Решите уравение 1-7(4+2x)=-9-4x...
3 - Одним предложением охарактеризуйте реки, которые предложены в данном списке (это...
1 - в кажлом предложении начало с какого слова есть там. Главное по больше в словах...
1 - Укажите строчки, в которых средством выразительности является метафора Вздохнула,...
3 - ЭССЕ Какой вклад я могу внести в решении экологических проблем Казахстана?...
3 - Напишіть рівняння реакцій за схемою будь ласка...
3 - 2. Прочитайте текст и выполните задания. Пишущий, как и говорящий, должен соблюдать...
1 - Найди область определения функции y=76/(10−10x.) (Если в ответе есть −∞, то запиши −Б;...
2
var a:array of integer;
N,i,max,k:integer;
BEGIN
readln(N);
SetLength(a,N);
max:=-1001;
for i:=0 to N-1 do begin
read(a[i]);
if (a[i]>max) then begin
max:=a[i];
k:=i;
end;
end;
writeln(k);
for i:=0 to N-1 do
write(a[i],' ');
end.