Вопрос по информатике:
Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива
- 06.11.2015 09:23
- Информатика
- remove_red_eye 11673
- thumb_up 21
Ответы и объяснения 1
program gg;
var i,n,max:integer;
a:array of integer[1..10];
begin
readln(a[i]);
for i:=1 to 10 do
begin
writeln(a[i],' ');
end;
n:=a[6];
a[6]:=a[9];
a[9]:=n;
max:=a[1];
for i:=2 to 10 do
if a[i]>max then
max:=a[i];
writeln('max element=',max);
readln
end.
- 07.11.2015 03:12
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.