С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Ксения87
2 / 2 / 0
Регистрация: 21.01.2012
Сообщений: 12
1

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

17.05.2012, 16:45. Просмотров 497. Ответов 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
Ответы с готовыми решениями:

Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы
Вот ещё пару задач...кто,что сможет напишите... 1)Циклические программы....

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

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

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

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

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

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

Найти произведение элементов массива
найти произведение элементов массива, если в него записаны элементы...

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


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

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

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