Информатика, опубликовано 2018-08-22 23:50:17 by Гость
Найти номер максимального и минимального из введённых с клавиатуры 10 элементов Паскаль (массивы)
Ответ оставил Гость
Var
a : array [1..10] of integer;
i, max, min:integer;
Begin
min:=999999999;
max:=-999999999;
for i:=1 to 10 do
begin
readln (a[i]);
if a[i]>max then max:=i;
if a[i]
writeln(max index=, max);
writeln(min index=, min);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на