Дан массив L1…L20. Заменить элементы, стоящие после Lmin на серднее арифметическое всего ряда- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
n=20
DIM l(n)
FOR i=1 TO n
PRINT "Vvedite element massiva #";i;
INPUT l(i)
NEXT i
PRINT
PRINT "Ishodniy massiv"
FOR i=1 TO n
PRINT l(i);
NEXT i
PRINT:PRINT
Lmin=l(1): imin=1
s=l(1)
FOR i=2 TO n
IF l(i)<Lmin THEN Lmin=l(i): imin=i
s=s+l(i)
NEXT i
s=s/n
FOR i=imin+1 TO n
l(i)=s
NEXT i
PRINT "Massiv posle preobrazovaniy"
FOR i=1 TO n
PRINT l(i);
NEXT i
END

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

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

Leave a Comment