Информатика, опубликовано 2018-08-22 18:23:40 by Гость
Pascal. Массивы. Найти максимальный элемент и его номер.
Ответ оставил Гость
Program D1KPxx0;
uses crt;
var
a:array [1..10] of integer;
i,max,k:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i], );
end;
max:=a[1];
for i:=1 to 10 do
if maxbegin
max:=a[i];
k:=i;
end;
writeln( ,max);
writeln(k);
end.
Первый элемент считается нулевым) хотя проверь все))) может в конце просто K+1 вывести надо) не помню) мне влом)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на