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

178

454

Посмотреть ответы 3

Ответы на вопрос:

stasleraz

Информатика

4,5(19 оценок)

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.

захра5566

Информатика

4,6(64 оценок)

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.