Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Задача № 2. Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10Стр 1 из 2Следующая ⇒ Задача № 1 Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10, найти столбец с минимальным произведением элементов. Решение uses crt; const n=4; m=10; var i,j,min,k,p:integer; f:boolean; x:array[1..n,1..m] of integer; begin clrscr; randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin x[i,j]:=random(31)-15; write(x[i,j]:4) end; writeln; end; min:=maxint; k:=0; for j:=1 to m do begin p:=1; f:=true; for i:=1 to n do begin if abs(x[i,j])>10 then begin f:=false; continue end; p:=p*x[i,j] end; if f=false then continue; if p<min then begin k:=j; min:=p end; end; write('Ответ: '); if k=0 then writeln('задача не имеет решения!') else writeln('номер столбца равен ',k) end.
Задача № 2 Дан двумерный массив. Написать процедуру поиска ненулевых элементов. Вывести исходный массив и результат.
|