Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 https://www.cyberforum.ru/ turbo-pascal/ thread771773.html Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. С защитой от неверного ввода. С помошью reapet и while Добавлено через 1 минуту На турбо паскале	Игра "15" Turbo Pascal Реализовать на паскале игру "15".
Turbo Pascal Неточность кода Всем привет! Такой вопрос: составил программу по следующему заданию: Дан массив X из n чисел (6<n<10). Вычислить y=x1-x2+x3-...-x+x. Но здесь считаются только суммы между разностями пар элементов. Подскажите, плиз, что нужно сделать, чтобы действия шли по порядку? Заранее спасибо. program 1; uses crt; var x: array of integer; i,n: integer; https://www.cyberforum.ru/ turbo-pascal/ thread771690.html	Turbo Pascal Посчитать количество https://www.cyberforum.ru/ turbo-pascal/ thread771547.html Посчитать количество и сумму четных цифр числа. Заранее спасибо.
Выведите на экран последовательность нечетных чисел, расположенных между заданными числами Turbo Pascal Здравствуйте) Введите с клавиатуры два целых нечетных числа (первое больше второго). Выведите на экран последовательность нечетных чисел, расположенных между этими числами. Решить через for. Помогите,пожалуйста, с решением:(	Turbo Pascal Рассортировать по возрастанию только положительные числа в каждой компоненте Создать файл, где компонентой будет массив из N чисел. Рассортировать по возрастанию только положительные числа в каждой компоненте, при этом, отрицательные должны оставаться на своих местах. Рассортированные компоненты записать в новый файл. Компоненту с наибольшим количеством отрицательных чисел удалить из файла. какие-то наработки uses crt; const n=10; L=5; type mas=array of integer;... https://www.cyberforum.ru/ turbo-pascal/ thread771524.html
Turbo Pascal Типизированные файлы: Внести в начало списка информацию о четырех новых знакомых Запись имеет вид: фамилия, номер телефона, дата рождения. Внести в начало списка информацию о четырех новых знакомых. Добавлено через 2 часа 6 минут Помогите пожалуйста очень нужно https://www.cyberforum.ru/ turbo-pascal/ thread771496.html	В двоичном представлении числа инвертировать последние две цифры Turbo Pascal В двоичном представлении числа инвертировать последние две цифры. (в задании рассматривается тип word) Замечание. При работе нельзя использовать массивы для хранения цифр двоичного представления чисел. Все действия необходимо выполнить, используя либо арифметические операции “+” или “-“ либо побитовые операции “shl”, “shr”, “and”, “or” или “xor” языка Pascal.
Turbo Pascal Удаление текста из скобок вместе со скобками Поясните каждую строчку var s:string;i,len,p: integer; begin s:=Memo1.Text; len:=Length(s); p:=0; for i:=1 to len do begin if s = '(' then p:=i https://www.cyberforum.ru/ turbo-pascal/ thread771446.html	Turbo Pascal Описать 5 студентов академии и вывести их список на экран по убыванию № группы Описать 5 студентов академии и вывести их список на экран по убыванию № группы. https://www.cyberforum.ru/ turbo-pascal/ thread771404.html
Дан указатель P1 на вершину стека Turbo Pascal Дан указатель P1 на вершину стека (если стек пуст, то P1 = nil). Также дано число N (> 0) и набор из N чисел. Описать тип TStack — запись с одним полем Top типа PNode	Turbo Pascal Игра "Морской бой" https://www.cyberforum.ru/ turbo-pascal/ thread771349.html Нужна игра сделанная на turbo pascal.

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,587

Записей в блоге: 1

26.01.2013, 10:30

Среди столбцов целочисленной матрицы А(н,м) найти столбец с минимальным произведением элементов - Turbo Pascal - Ответ 4054490

26.01.2013, 10:30. Показов 1638. Ответов 1

Метки (Все метки)

Сообщение было отмечено Данилов как решение

Решение

Pascal

Var A:array[1..20,1..20] of integer;
    B:array[1..20] of longint;
    i,j,n,m,jmin:byte;
Begin
    write('Введите n,m: ');readln(n,m);
    For j:=1 to m do
     B[j]:=1;
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
        B[j]:=B[j]*A[i,j];
      End;
      writeln;
    End;
    jmin:=1;
    For j:=2 to m do
     if B[j]<B[jmin] then jmin:=j;
    writeln('Столбец с min произведением ',jmin,' там произведение = ',B[jmin]);
    readln;
End.

Вернуться к обсуждению:
Среди столбцов целочисленной матрицы А(н,м) найти столбец с минимальным произведением элементов Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.01.2013, 10:30

Готовые ответы и решения:

Среди столбцов заданной целочисленной матрицы найти столбец с минимальным произведением элементов
Среди столбцов заданной целочисленной матрицы найти столбец с минимальным произведением элементов....

Найти столбец с минимальным произведением элементов
Помогите пожалуйста программу создать, среди столбцов заданной целочисленной матрицы C размера 7 на...

Найти столбец матрицы с наименьшим произведением элементов и заменить все элементы столбца произведением
Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти столбец с наименьшим произведением...

Среди нечетных столбцов матрицы найти столбец с максимальной суммой модулей элементов.
Составить программу на Паскале. Среди нечетных столбцов заданной целочисленной матрицы 5*4 найти...

	26.01.2013, 10:30

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.01.2013, 10:30

Помогаю со студенческими работами здесь

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

Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов
2. Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов.

Среди столбцов заданной целочисленной матрицы, содержащих только...
Задача: Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые...

Найти минимальный среди максимальных элементов столбцов матрицы.
В1(1).Дано целое число N (N > 2) и набор из N вещественных чисел.Набор называется пилообразным,...

Наверх