Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17 https://www.cyberforum.ru/ turbo-pascal/ thread1202931.html
Дано множество Xl,содержащее целые числа из диапазона . Сформировать новое множество Y путем выделения из множества Xl нечетных чисели чисел,делящихся без остатка на 17. 		Turbo Pascal Удалить из строки все вхождения каждого символа, за исключением первого
Дана последовательность символов(строка).Если какой-то символ в ней встречается более одного раза ,оставить только первое вхождение.
Turbo Pascal Метод закраски фонга есть программа реализующая метод закраски фонга но она отображает лаги. p1.cpp program p1; { Освещение треугольника (модели) по фонгу } uses math3d, crt, grf, obj_cube; procedure init_pal; var i: integer; begin for i := 1 to 63 do https://www.cyberforum.ru/ turbo-pascal/ thread1202908.html Turbo Pascal Нарисовать анимированного человека https://www.cyberforum.ru/ turbo-pascal/ thread1202901.html
Нарисовать рисунок.Голову и туловище закрасить собственной штриховкой.Сделать рисунок двигающимся,при этом ноги и руки должны шевелиться.
Turbo Pascal Сортировка массива методом пузырька
Приветствую всех. Прошу помощи у знающих людей с написанием программы. Итак, условия - дан числовой массив 15x15, который берется из текстового файла. Нужно отсортировать числа массива по возрастанию от наименьшего к большему и вывести его в другой текстовый файл. const n=15; var f:text; a:array of integer; i,j,s,e,c:integer; 		Turbo Pascal Определить количество абитуриентов, средний балл которых выше среднего балла по институту https://www.cyberforum.ru/ turbo-pascal/ thread1202869.html
У меня есть программа, у которой условие " Определить количество абитуриентов, средний балл которых выше среднего балла по институту. " program z1; uses crt; const n=5; type gruppa=record fio: string; ball: integer; end;
Turbo Pascal Максимальная размерность одномерного массива Сколько чисел может уместиться в одномерном массиве? У меня 200000 почему-то не влезают :D. И как тогда поступать? https://www.cyberforum.ru/ turbo-pascal/ thread1202866.html Turbo Pascal Заменить все элементы массива
Заменить все элементы массива большие 10,на число с.
Turbo Pascal Нужно переделать программу, завтра сдавать, но не могу с этой разобраться Составить структурную схему программы и модуля, выполняющей следующие функции: ввод имени файла с клавиатуры, проверку наличия дискового файла, если файла нет его создание. Ввод информации осуществляется в активном окне. Файл содержит записи со сведениями о студентах (группа, фамилия, имя, отчество, размер стипендии). Добавить подпрограмму позволяющую выводить на экран записи о студентах только... https://www.cyberforum.ru/ turbo-pascal/ thread1202850.html Turbo Pascal Даны два натуральных числа.Выяснить,в каком из них больше цифр https://www.cyberforum.ru/ turbo-pascal/ thread1202849.html
Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета количества цифр натурального числа).
Turbo Pascal Определить, какая из трёх точек наиболее удалена от точки с заданными координатами
На плоскости 3 точки заданы своими координатами:(x1,y1),(x2,y2),(x3,y3).Определить, какая из точек наиболее удалена от точки с заданными координатами (х,у).Расстояние между двумя точками вычислить с помощью процедуры. 		Turbo Pascal Определить количество абитуриентов со средним баллом не менее 6, фамилии которых начинаются на А Дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить) : Ф. И. О. Оценки Местожительство Иванов А. Г. 9 7 5 Вологда Петров Л. Л 9 9 9 Грязовец Раковский Д. Г. 4 4 5 Сокол Акимова Я. С. 9 5 4 Харовск Определить количество абитуриентов со средним баллом не менее 6, фамилии которых начинаются с буквы А. Завтра сдать надо, а я не знаю как решать.... https://www.cyberforum.ru/ turbo-pascal/ thread1202780.html
5 / 5 / 12
Регистрация: 12.09.2013
Сообщений: 156
08.06.2014, 20:35 0

Дана матрица размерностью MxN. Вычислить сумму отрицательных элементов матрицы - Turbo Pascal - Ответ 6291612

08.06.2014, 20:35. Показов 2562. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено ocsoget как решение

Решение

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

var 
    I,j:integer;
    a:array[1..3,1..3] of integer;
    s:real;
    begin
    
    Writeln('vvedite matrix');
    For i:=1 to 3 do
    For j:=1 to 3 do
    Readln(a[i,j]);
    
    
    Writeln('vasha matrcia');
    For i:=1 to 3 do 
    begin
    For j:=1 to 3 do
    write(a[i,j]:3 ,  ' ');
    writeln;
    end;
    
    
     For i:=1 to 3 do
    For j:=1 to 3 do
    If (a[i,j] < 0) then
    s:=s+a[i,j];
    
    
    Writeln('summa otr elementov = ' , s);
    end.


Вернуться к обсуждению:
Дана матрица размерностью MxN. Вычислить сумму отрицательных элементов матрицы Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 08.06.2014, 20:35
Готовые ответы и решения:

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

Найти сумму элементов каждой строки матрицы размерностью MxN.
Найти сумму элементов каждой строки матрицы размерностью MxN.

Дана квадратная матрица размерностью N. Подсчитать количество отрицательных элементов по столбцам
Дана квадратная матрица размерностью N. Подсчитать количество отрицательных элементов по столбцам.

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

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

Дана матрица. Вычислите сумму и произведение нечётных отрицательных элементов матрицы, удовлетворяющих условию
Дана целочисленная матрица A(N, M). Вычислите сумму и произведение нечётных отрицательных элементов...

Дана действительная матрица mxn. Найти сумму наибольших значений элементов ее строк. (определить функцию вычисления максимума)
Дана действительная матрица mxn. Найти сумму наибольших значений элементов ее строк. (определить...

Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетн
Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали;...

Дана матрица А,размерностью m x n. Найти номер столбцов матрицы в которых сумма элементов больше нуля
Дана матрица А,размерностью m x n. Найти номер столбцов матрицы в которых сумма элементов больше...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru