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

@Foxich · Регистрация: 25.12.2014

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

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

@Sasha_Smirnov · 29.03.2015, 22:04

Foxich, вниз прокрутите, там кучка примеров.

Только вам не с нулём надо сравнить, а с максимумом.

@ZX Spectrum-128 · 30.03.2015, 09:14

QBasic/QuickBASIC

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

@Foxich 0 / 0 / 0 Регистрация: 25.12.2014 Сообщений: 32
		1
	Все элементы с наибольшим значением в данной матрице заменить нулями 28.03.2015, 19:16. Показов 1323. Ответов 2 Метки нет (Все метки) Добрый вечер. Нужна помощь в написании программы на бейсике: Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка 10 заменить нулями __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

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

Опции темы

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

Решение