0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 32
1

Все элементы с наибольшим значением в данной матрице заменить нулями

28.03.2015, 19:16. Показов 1323. Ответов 2
Метки нет (Все метки)

Добрый вечер. Нужна помощь в написании программы на бейсике:

Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка 10 заменить нулями
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2015, 19:16
Ответы с готовыми решениями:

Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами
Не могу решить. 1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

Заменить в массиве все чётные элементы нулями
Как заменить массиве из 10 целых чисел все чётные элементы нулями? Как бы сделать так, чтобы нули...

Заменить нулями все ее элементы матрицы, расположенные на главной
. Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные...

Заменить нулями все её элементы, расположенные на главной диагонале
Дана действительная квадратная матрица поядка n. Заменить нулями все её элементы, расположенные на...

2
5560 / 1366 / 150
Регистрация: 08.02.2009
Сообщений: 4,107
Записей в блоге: 30
29.03.2015, 22:04 2
Foxich, вниз прокрутите, там кучка примеров.

Только вам не с нулём надо сравнить, а с максимумом.
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
30.03.2015, 09:14 3
Лучший ответ Сообщение было отмечено Foxich как решение

Решение

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
28
29
30
31
32
33
CONST n=10
CONST m=10
DIM a(1 TO n, 1 TO m) AS INTEGER
 
PRINT "Array:"
FOR i=1 TO n 
    FOR j=1 TO m 
        a(i,j)=INT(RND*5)+1
        PRINT(a(i,j));  
    NEXT
    PRINT
NEXT
max=a(1,1)
FOR i=1 TO n 
    FOR j=1 TO m
        IF max<a(i,j) THEN
            max=a(i,j)
        EndIf
    NEXT
NEXT
PRINT "Max: "; max
PRINT "Changed array:"
FOR i=1 TO n 
    FOR j=1 TO m 
        IF a(i,j)=max THEN
            a(i,j)=0
        EndIf
        PRINT(a(i,j));  
    NEXT
    PRINT
NEXT
 
SLEEP
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2015, 09:14
Помогаю со студенческими работами здесь

Заменить нулями все элементы матрицы, расположенные на главной диагонали
Дана действительная квадратная матрица порядка n. Заменить нулями все её элементы, расположенные на...

Заменить в массиве из 10 целых чисел все чётные элементы нулями
Заменить в массиве из 10 целых чисел все чётные элементы нулями и вывести исходный и...

Заменить нулями все элементы матрицы, расположенные ниже главной диагонали
Ввести квадратную матрицу В(k,k). Заменить нулями все элементы матрицы, расположенные ниже главной...

Заменить в массиве все чётные элементы нулями и вывести полученный массив
Заменить в массиве из 10 целых чисел все чётные элементы нулями и ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru