В массиве из 20 элементов определить сумму элементов с нечетными индексами, минимальный элемент. Построить новый массив из элементов квадрат которых больше q- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
cls
dim a(20)
randomize timer
for i = 1 to 20
a(i)=rnd(1)*50
next i
for i = 1 to 19 step 2
s=s+a(i)
next i
mi=a(1)
for i = 1 to 20
if mi>a(i) then mi=a(i)
next i
? mi
input q
for i = 1 to 20
if a(i)^2>q then ? a(i);
next i

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment