Удалить все положительные элементы, кратные семи или трём, расположенные до последнего минимального элемента.

@trof808 · Регистрация: 18.12.2013

Author24 — интернет-сервис помощи студентам

Дан одномерный целочисленный массив. Удалить все положительные
элементы, кратные семи или трём, расположенные до последнего
минимального элемента. Предварительно вычислить их произведение.

@Андресян · 18.12.2013, 13:19

Если правильно понял задание то вот:

Matlab M

clc
clear
a=randint(1,5,[-5,5])
s=a(1);
n=1;
for i=2:length(a)
    if a(i)<s
        s=a(i)
        n=i;
    end
end
for i=1:n-1
    if mod(a(i),3)==0 || mod(a(i),7)==0
        a(i)=0;
    end
end
a

Добавлено через 9 минут
забыл произведение сделать, вот окончательный вид:

Matlab M

clc
clear
a=randint(1,5,[-5,5])
s=a(1);
d=1;
n=1;
k=0;
for i=2:length(a)
    if a(i)<s
        s=a(i);
        n=i;
    end
end
for i=1:n-1
    if mod(a(i),3)==0 || mod(a(i),7)==0
        d=d*a(i);
        a(i)=0;
        k=k+1;
    end
end
if k==0;
    d=0;
end
a
d

Зосима · 18.12.2013, 13:45

Андресян, ты забыл проверить на положительность и надо бы их не просто обнулить, а удалить

(найти индексы, а потом все сразу a(id)=[] )

@Андресян · 18.12.2013, 14:55

Зосима, понял ошибку, учел

trof808, тогда вот:

Matlab M

clc
clear
a=randint(1,10,[-2,10]);
s=a(1);
d=1;
n=1;
k=0;
for i=2:length(a)
    if a(i)<s
        s=a(i);
        n=i;
    end
end
for i=1:n-1
    if (mod(a(i),3)==0 | mod(a(i),7)==0) & a(i)>0
        d=d*a(i);
        a(i)=[];
        k=k+1;
    end
end
if k==0;
    d=0;
end
a
d

@trof808 · 19.12.2013, 01:11 **[ТС]**

Там нужно было вот так сделать

Написать программу (скрипт), в которой определён одномерный массив. Сначала
программа вызывает функцию, определённую в отдельном файле. Функция решает
поставленную задачу. Предполагается, что тело функции (помимо заголовка) удастся
разместить в одной строке. Далее в файле размещаются команды, из которых составлена
функция. После каждой команды в виде комментария помещён вывод результата
команды.

@trof808 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 3
		1
	Удалить все положительные элементы, кратные семи или трём, расположенные до последнего минимального элемента. 18.12.2013, 01:27. Показов 1242. Ответов 4 Метки нет (Все метки) Дан одномерный целочисленный массив. Удалить все положительные элементы, кратные семи или трём, расположенные до последнего минимального элемента. Предварительно вычислить их произведение. 0

Зосима 5241 / 3569 / 379 Регистрация: 02.04.2012 Сообщений: 6,473 Записей в блоге: 17
	18.12.2013, 13:45	3
	Андресян, ты забыл проверить на положительность и надо бы их не просто обнулить, а удалить (найти индексы, а потом все сразу a(id)=[] ) 0

@trof808 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 3
	19.12.2013, 01:11 [ТС]	5
	Там нужно было вот так сделать Написать программу (скрипт), в которой определён одномерный массив. Сначала программа вызывает функцию, определённую в отдельном файле. Функция решает поставленную задачу. Предполагается, что тело функции (помимо заголовка) удастся разместить в одной строке. Далее в файле размещаются команды, из которых составлена функция. После каждой команды в виде комментария помещён вывод результата команды. 0