Вопрос по информатике:
В одномерном массиве А(10) найти максимальный элемент, вывести его значение и индекс. заменить все четные элементы значением максимального элемента. полученный массив вывести на экран.
- 18.02.2018 20:04
- Информатика
- remove_red_eye 18883
- thumb_up 17
Ответы и объяснения 1
Var
a : array[1..10] of integer;
m, i, mi: integer;
begin
for i := 1 to 10 do
read(a[i])
m:=-maxint;
for i := 1 to 10 do
if (a[i]>m) then begin
m:=a[i];
mi:=i;
end;
for i := 1 to 10 do
if (a[i] mod 2 = 0) then a[i] := m;
writeln(m,' ',mi);
for i:= 1 to 10 do
write(a[i],' ');
readln;
end.
- 19.02.2018 12:10
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.