Ответить на вопрос : нажатие на кнопку пуск приводит к открытию

222

368

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

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

ооо321

Информатика

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

Нажатие на кнопку пуск приводит к открытию - главного меню

vitalicc

Информатика

4,8(86 оценок)

program nnatovna; uses crt; const n=13; var a: array [1..n] of integer; i,min,max,temp: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); randomize; writeln('элементы массива: '); {создание и вывод массива} for i: =1 to n do begin a[i]: =random(100)-50; write (a[i]: 5); end; {ищем номера мин и мах} min: =1; max: =1; for i: =1 to n do begin if a[min]> a[i] then min: =i; if a[max]< a[i] then max: =i; end; {меняем местами мин и мах элементы} temp: =a[min]; a[min]: =a[max]; a[max]: =temp; {вывод результата} writeln(); writeln('результат: '); for i: =1 to n do write(a[i]: 5); end.