Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Диофантово уравнение https://www.cyberforum.ru/ pascal/ thread1593321.html
Здравствуйте дорогие форумчане и программисты!!! Я тут 1 раз и молю вас о помощи, а дело вот в чём, задали в инсте такую программку: Спроектировать и реализовать программную систему, позволяющую решать Диофантово уравнение с помощью генетического алгоритма.Разработать программу для решения Диофантова уравнения вида: a+2b+3c+4d=30, где a, b, c и d - некоторые положительные целые числа. Нахождение...
Pascal Подскажите что за алгоритм
Подскажите пожалуйста что за алгоритм изображён на фото.
Pascal Оптимизируйте, пожалуйста, программу (переделать дешифровку и сохранение в файл) https://www.cyberforum.ru/ pascal/ thread1593205.html
Пожалуйста, переделайте дешифровку и сохранение в файл, чтобы было output2,3...10.txt (один правильный, остальные нет) var sin, sout, sdecode,k : string; a : array of array of integer; d, c, i,j,l, n : integer; f,q:text; begin write('введите кол-во столбцов для шифровки: ');
Pascal Конвертировать код на Паскаль https://www.cyberforum.ru/ pascal/ thread1593125.html
Помогите пожалуйста конвертировать код с С на паскаль.Буду примного благодарен) #include<iostream> #include<queue> #include<cstdio> using namespace std; bool a; queue <int> l,s; int p,u,n,fr,o=0;
Pascal Вывод в графическом режиме графика функции (5x-4)*cos(3x)
напишите программу для вывода в графическом режиме графика функции (5x-4)cos(3x)
Pascal В самом коротком слове все согласные буквы заменить буквой А Создать программу заданной обработки массива слов.В процессе обработки использовать множественных тип данных.Заполнение исходных данных с клавиатуры. Дан массив из n слов произвольной длины(длина слова не превышает 80 символов).Символами могут быть только заглавные латинские буквы.В самом коротком слове все согласные буквы заменить буквой А. https://www.cyberforum.ru/ pascal/ thread1593030.html
Pascal Найти максимальный элемент среди стоящих на главной и побочной диагоналях матрицы составить программу заданной обработки матрицы целых чисел,используя перестановки элементов внутри массива не создавая новых.заполнение исходного массива организовать с помощью генератора случайных чисел.исходный и обработанный массив выводить на экран. дана матрица A(m*n) все элементы которой различны.найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять ее... https://www.cyberforum.ru/ pascal/ thread1593024.html Pascal Написать программу обнаружения тупика
Pascal Написать программу обхода тупика Пусть имеется система из 3-х вычислительных процессов которые потребляют некоторый ресурс R типа SR (повторно используемый), который вычисляется дискретными взаимозаменяемыми единицами, причем существует всего 5 единиц этого ресурса. В таблице приведены сведения о текущем распределении между процессами этого ресурса R. Записаны текущие запросы процессов на этот ресурс и максимальные потребности... https://www.cyberforum.ru/ pascal/ thread1592996.html Pascal Записать формулу синтаксисом Паскаля Измените пожалуйста мат. формулу для паскаля: {a}^{2}-Sin ax/({b}^{2}-Sin bx)*({x}^{2}-Sin xa) https://www.cyberforum.ru/ pascal/ thread1592912.html
Pascal Подпрограммы в двумерных массивах
Напишите, пожалуйста, процедуру, которая заменяет все числа главной диагонали числами побочной диагонали. const n = 5; type TLine = Array Of ShortInt; //вектор из чисел TMass = Array Of TLine; //вектор векторов TLine
Pascal Выполнить сортировку одномерного массива 4 методами. https://www.cyberforum.ru/ pascal/ thread1592763.html
в диалоговом режиме с помощью оператора case выполнить сортировку одномерного массива 4 "методами." Сравнить скорость сортировки одномерного массива целых чисел которые будут задаваться с помощью "random-150..150"
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
26.11.2015, 14:32 0

В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки - Pascal - Ответ 8397778

26.11.2015, 14:32. Показов 1316. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Flash56rus как решение

Решение

Pascal
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
34
const
    n = 5;
    m = 6;
var
    a: Array[1..n, 1..m] Of Integer;
    i, j, jMin: Byte;
    sumNeg: Integer;
begin
    Randomize(); sumNeg := 0;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:6);
            if (a[i, j] < 0)
            then
                Inc(sumNeg, a[i, j]); //sumNeg := sumNeg + a[i, j];
        end;
        WriteLn;
    end;
    jMin := 1;
    for j := 1 to m do
        if (a[2, j] < a[2, jMin])
        then
            jMin := j;
    a[2, jMin] := sumNeg;
    for i := 1 to n do
    begin
        WriteLn;
        for j := 1 to m do
            Write(a[i, j]:6);
    end;
end.


Вернуться к обсуждению:
В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2015, 14:32
Готовые ответы и решения:

Посчитать сумму отрицательных элементов после максимального элемента в массиве(с использованием функций)
Посчитать сумму отрицательных элементов после максимального элемента в массиве(с использованием...

сумму отрицательных элементов поставить на место минимального
В массиве D (n) сумму отрицательных элементов поставить на место минимального.

Найти сумму элементов главной диагонали матрицы и эту сумму поставить на место последнего элемента
дана матрица А(3,4). Найти сумму элементов главной диагонали и эту сумму поставить на место...

Найти сумму элементов главной диагонали матрицы и эту сумму поставить на место последнего элемента
Дана матрица A(3,4). Найти сумму элементов главной диагонали и эту сумму поставить на место...

1
26.11.2015, 14:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2015, 14:32
Помогаю со студенческими работами здесь

Найти сумму элементов главной диагонали и поставить на место последнего элемента
Дана матрица A(3,4). Найти сумму элементов главной диагонали и эту сумму поставить на место...

В заданном массиве заменить значения отрицательных элементов значением максимального элемента
Дан вещественный массив х(12).В заданном массиве заменить значения отрицательных элементов...

Вычислить номер максимального элемента массива, сумму отрицательных элементов
В одномерном массиве , состоящем из n вещественных элементов , вычислить: 1) Номер максимального...

Вычислить сумму отрицательных элементов, расположенных после максимального элемента массива
ПОМОГИТЕ СТУДЕНТУ!!!! ______________________ Вычислить сумму отрицательных элементов,...

Найти сумму элементов в массиве вокруг максимального элемента
Всем привет, подскажите как найти сумму элементов в массиве, вокруг максимального элемента.

В одновременном массиве, состоящем из n элементов, вычислить сумму элементов после максимального элемента массива
В одновременном массиве, состоящем из n элементов, вычислить сумму элементов после максимального...

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