Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
Ксения87
2 / 2 / 0
Регистрация: 21.01.2012
Сообщений: 12
#1

Найти произведение наименьшего и наибольшего значений массива - QBasic

17.05.2012, 16:45. Просмотров 483. Ответов 0
Метки нет (Все метки)

помогите пожалуйста никак не могу разобраться

Найти произведение наименьшего и наибольшего значений. Заменить нулями все отрицательные элемента массива.

Заранее спасибо

Добавлено через 8 часов 52 минуты
проверьте пожалуйста правильно ли я написала

QBasic/QuickBASIC
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
CLS: INPUT "Razmernost: ", n
RANDOMIZE TIMER
DIM A(n), max, min, i, k, z, p AS INTEGER
k = 1
z = 1
FOR i = 1 TO n
    A(i) = INT(RND * (-50) + RND * 50)
NEXT
FOR i = 1 TO n
    PRINT A(i);
NEXT
min = A(1)
max = A(1)
FOR i = 1 TO n
    IF A(i) < min THEN min = A(i): k = i
    IF A(i) > max THEN max = A(i): z = i
NEXT
PRINT
PRINT "max = a("; z; ") = "; max
PRINT "min = a("; k; ") = "; min
p = max * min
PRINT "proizvedenie="; p
FOR i = 1 TO n
    IF A(i) < 0 THEN A(i) = 0
    PRINT A(i);
NEXT i
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2012, 16:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение наименьшего и наибольшего значений массива (QBasic):

Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы - QBasic
Вот ещё пару задач...кто,что сможет напишите... 1)Циклические программы. Задание: Пусть X1=X2=X3=1; Xi=Xi-1+Xi-3; i=4,5,... ...

Найти среднее арифмитическое наибольшего и наименьшего значения её элементов. - QBasic
Дана действительная матрица размера m x n. Найти среднее арифмитическое наибольшего и наименьшего значения её элементов. Помогите...

Найдите разность наибольшего и наименьшего элементов массива - Basic
Помогите, не проходит код!) Вот задача: Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите разность наибольшего...

Определить значения наименьшего и наибольшего из 3 чисел - Basic
помогите прошу. срочно нужен программный код к задаче. ввести 3 числа. определить значения наименьшего и наибольшего из чисел. заранее...

Получить массив, из сумм наименьшего и наибольшего элементов соответствующей строки матрицы - QBasic
Кричу о помощи! Задача в курсовике такова: &quot;Задана матрица A(n,m), получить массив B(n) элементами которого является сумма наименьшего и...

Найти произведение элементов массива - QBasic
Задача. Организовать массив из 12 элементов, если элементы с четным индексом равны 1, с нечетным равны 2. Найти произведение элементов. ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2012, 16:45
Привет! Вот еще темы с ответами:

Найти произведение элементов массива - QBasic
Найти произведение элементов массива Х, которые меньше 1,5; j=1;10

Найти произведение элементов массива - QBasic
найти произведение элементов массива, если в него записаны элементы послеовательности an=корень из n в кварате +1 . Округлить элементы о 2...

Найти произведение элементов массива - QBasic
образовать массив из 15 элементов если каждый элемент равен обратной величене своего индекса . Найти произведение элементов. Заранее спасибо

Найти произведение элементов массива - QBasic
найти произведение элементов массива У(4,4) значения которых задаются датчиком случайных чисел. найти количество нечетных элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru