Опубликовано 5 лет назад по предмету Информатика от supermemo02

дан массив из 10 положительных чисел. А(N)=(a0....a10). найти максимальный элемент массива и поменять местами с последним

Ответ

Ответ дан yasadc

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.
Ответ

Ответ дан preceptor

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.

Самые новые вопросы

Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают