⇢ АК
Анна Кузнецова
Задача по информатике басик
Ввести массив a(n), n>5 найти максимальный элемент массива последние пять элементов массива увеличить на максимальный. Вывести полученный массив
СП
Сергей Платонов
басик - нету такого зверя в природе. Есть бейсик:
10 input"enigu n",n
20 dim a(n)
30 print"entajpu tabelo"
40 for i=1 to n:input a(i):next i
50 let m=a(1)
60 for i=2 to n
70 if a(i)>m then m=a(i)
80 next i
90 for i=n-5+1 to n:let a(i)=a(i)+m:next i
100 for i=1 to n:print a(i);spc(2);:next i
110 stop
Похожие вопросы