57

Составьте программу, которая заполняет массив a[1… 10] случайными числами в…

19 февраля 2023

Составьте программу, которая заполняет массив a[1… 10] случайными числами в диапазоне от 0 до 10, затем первый элемент меняет местами с максимальнымэлементом. Выведите на экран исходный и полученный массивы.

категория: информатика



89

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 (10); write (a[i],'); end; writeln; max: =-1; for i: =1 to n do if a[i]>max then begin max: =a[i]; k: =i; end; a[1]: =a[1]+a[k]; a[k]: =a[1]-a[k]; a[1]: =a[1]-a[k]; for i: =1 to n do write (a[i],'); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...