Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Диофантово уравнение https://www.cyberforum.ru/ pascal/ thread1593321.html Здравствуйте дорогие форумчане и программисты!!! Я тут 1 раз и молю вас о помощи, а дело вот в чём, задали в инсте такую программку: Спроектировать и реализовать программную систему, позволяющую...	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; ...	Pascal Конвертировать код на Паскаль https://www.cyberforum.ru/ pascal/ thread1593125.html Помогите пожалуйста конвертировать код с С на паскаль.Буду примного благодарен) #include<iostream> #include<queue> #include<cstdio> using namespace std; bool a; queue <int> l,s; int...
*Pascal Вывод в графическом режиме графика функции (5x-4)cos(3x)** напишите программу для вывода в графическом режиме графика функции (5x-4)cos(3x)	Pascal В самом коротком слове все согласные буквы заменить буквой А Создать программу заданной обработки массива слов.В процессе обработки использовать множественных тип данных.Заполнение исходных данных с клавиатуры. Дан массив из n слов произвольной длины(длина... https://www.cyberforum.ru/ pascal/ thread1593030.html
Pascal Найти максимальный элемент среди стоящих на главной и побочной диагоналях матрицы составить программу заданной обработки матрицы целых чисел,используя перестановки элементов внутри массива не создавая новых.заполнение исходного массива организовать с помощью генератора случайных... https://www.cyberforum.ru/ pascal/ thread1593024.html	Pascal Написать программу обнаружения тупика
Pascal Написать программу обхода тупика Пусть имеется система из 3-х вычислительных процессов которые потребляют некоторый ресурс R типа SR (повторно используемый), который вычисляется дискретными взаимозаменяемыми единицами, причем... 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...	Pascal Выполнить сортировку одномерного массива 4 методами. https://www.cyberforum.ru/ pascal/ thread1592763.html в диалоговом режиме с помощью оператора case выполнить сортировку одномерного массива 4 "методами." Сравнить скорость сортировки одномерного массива целых чисел которые будут задаваться с помощью...

JokeR.BY

CAPITAL OF ROCK!

1281 / 708 / 982

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

Сообщений: 2,286

26.11.2015, 14:32

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

26.11.2015, 14:32. Показов 1286. Ответов 1

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

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

Решение

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.11.2015, 14:32

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.11.2015, 14:32

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

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

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

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

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

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

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

Наверх