Обработать на компьютере одномерный массив G(N): определить минимальный и максимальный элементы массива и их порядковые номера, вычислить среднее арифметическое значение максимального и минимального элементов. Размер исходного массива N ввести с клавиатуры. Вывести на экран все результаты и исходный массив. Проверить правильность выполнения программы с помощью тестового варианта (N=4) — QBasic(Бейсик)

disel 
input" vvedite kol-vo elementov ",n
dim g(n)
randomize timer
print"massiv"
for i=1 to n
g(i)=int(rnd*20)
print g(i);
next
print
nmin=1
nmax=1
for i=1 to n
if g(i)<g(nmin) then nmin=i
if g(i)>g(nmax) then nmax=i
next
print"minimalnyj element=";g(nmin);"ego nomer="nmin
print"maximalnyj element=";g(nmax);"ego nomer="nmax
print"sredneee max i  min=";(g(nmin)+g(nmax))/2

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

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

Leave a Comment