Вопрос по информатике:
Дан массив из 10 положительных чисел. А(N)=(a0....a10). найти максимальный элемент массива и поменять местами с последним
- 24.01.2018 05:17
- Информатика
- remove_red_eye 6002
- thumb_up 42
Ответы и объяснения 2
Uses crt;
const n=10;
var a:array[1..n] of integer;
i,max,k:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(30);
writeln(a[i]);
end;
writeln;
max:=0;
for i:=1 to n do
begin
if a[i]>max then begin
max:=a[i];
k:=i;
end;
end;
a[k]:=a[k]+a[n];
a[n]:=a[k]-a[n];
a[k]:=a[k]-a[n];
for i:=1 to n do
writeln(a[i]);
end.
- 25.01.2018 18:46
- thumb_up 2
Program Max;
Const first = 1; last = 10;
Var a: Array [first..last] Of Integer;
m, tmp, i: Integer;
Begin
WriteLn('Введите через пробел ', last, ' чисел');
For i := first To last Do
Read(a[i]);
m := first;
For i := first To last Do
If a[i] > a[m] Then
m := i;
tmp := a[last];
a[last] := a[m];
a[m] := tmp;
WriteLn('Результат:');
For i := first To Last Do
Write(a[i], ' ');
ReadLn;
End.
- 26.01.2018 09:25
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.