Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Задается 2 года определяется количество лет месяцев дней Задается 2 года определяется количество лет месяцев дней Добавлено через 13 часов 12 минут помогите сделать https://www.cyberforum.ru/ turbo-pascal/ thread769424.html	Задано натуральное число n. Получить все натуральные числа, меньше n и взаимопростые с ним Turbo Pascal Помогите пожалуйста решить! Задано натуральное число n. Получить все натуральные числа меньше за n и взаемопростые с ним.
Turbo Pascal Салон красоты. https://www.cyberforum.ru/ turbo-pascal/ thread769415.html Помогите решить задачу! В салон красоты пришло n девушек. Каждая из них должна посетить парикмахера и косметолога. У каждого она проводит по m часов. За который наименьшее время k сотрудников салона красоты смогут обслужить всех девушек, если каждый сотрудник может выполнять функции как косметолога, так и парикмахера? входные данные три натуральных числа k, m, n (все числа не больше 10...	Turbo Pascal Анализ текстового файла: определение частоты пробелов в каждой строке. разработать программу анализа текстового файла:определения частоты пробелов в каждой строке и формирования файла частот пробелов построчно.Предусмотреть проверку существования исходного файла частой с выдачей диагностических сообщений. (Нужно сделать с процедурами в turbo pascal).От себя добавлю,никогда не писал программы с анализом текстовых файлов.Буду очень признателен за помощь. https://www.cyberforum.ru/ turbo-pascal/ thread769406.html
Заменить пробел в предложении 2 пробелами Turbo Pascal Заменить пробел в предложении 2 пробелами	Turbo Pascal Написать программу, состоящую из функции, которая возводит число 3 в n степень. Вывести y=3(7)+3(5)+3(9), где 7,5,9 - степени Написать программу, состоящую из функции, которая возводит число 3 в n степень. Вывести y=3(7)+3(5)+3(9), где 7,5,9 - степени https://www.cyberforum.ru/ turbo-pascal/ thread769394.html
Turbo Pascal Вывести на экран элементы целочисленной таблицы [1: n] кратны 3 https://www.cyberforum.ru/ turbo-pascal/ thread769391.html Доброй ночи форумчани!) Помогите решить!) "Вывести на экран элементы целочисленной таблице кратны 3" Большое спасибо!	Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву Turbo Pascal Помоги девчушке-блондинке с задачками! Ну никак не понимаю(((( Буду весьма благодарна,если откликнитесь! 2.Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву. Я уверена, вас много , кому это расплюнуть!ну а мне стыдпозор(
Turbo Pascal Определить, какая сумма элементов больше – стоящих между минимальным и максимальным элементами или остальных элементов Помоги девчушке-блондинке с задачками! Ну никак не понимаю(((( Буду весьма благодарна,если откликнитесь! 1.определить, какая сумма элементов больше – стоящих между минимальным и максимальным элементами или остальных элементов. Максимальный и минимальный элементы в суммы не включать. Я уверена, вас много , кому это расплюнуть!ну а мне стыдпозор( https://www.cyberforum.ru/ turbo-pascal/ thread769376.html	Turbo Pascal Вычислить сумму двух заданных матриц размером 3х3 Добрый вечер! Помогите решить задачку: "Вычислить сумму двух заданных матриц размером 3х3" Вот к чему я дошол, дальше не пойму( program g; const n=3; m=3; var https://www.cyberforum.ru/ turbo-pascal/ thread769356.html
Turbo Pascal дан файл содержащий сведения о книгах.Сведение о каждой из книг- эта фамилия автора, названия и год издания дан файл содержащий сведения о книгах.Сведение о каждой из книг- эта фамилия автора, названия и год издания. найти название книги и автора с 1960 года издания	Turbo Pascal Заменить все элементы, которые равны сумме двух соседних предыдущих элемнтов на нули https://www.cyberforum.ru/ turbo-pascal/ thread769321.html Добрый вечер форумчани) Помогите мне пожалуйста решить задачку!) В целочисленном массиве А заменить все элементы, которые равны сумме двух соседних предыдущих элемнтов на нули. Большое спс!!!

True_LyaLya

24 / 24 / 16

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

Сообщений: 129

23.01.2013, 04:28

Вычислить сумму положительных элементов строки, в которой находится минимальный элемент матрицы - Turbo Pascal - Ответ 4041135

23.01.2013, 04:28. Показов 1084. Ответов 3

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

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

Решение

Если есть вопросы - спрашивай

Pascal

uses crt;
const x=11;
label m1;
type mas=array[1..x,1..x] of integer;
var z: mas;
i,j,n,sum: integer;
 
function min(m: mas): integer;
var i,j,minE: integer;
begin
minE:=m[1,1];
for i:=2 to x do
for j:=1 to x do
//begin
if (m[i,j]< minE) then
minE:=m[i,j];
//end;
min:=minE;
end;
 
begin
clrscr;
randomize;
for i:=1 to x do
begin
for j:=1 to x do
begin
z[i,j]:=random(100);
write(z[i,j]:4);
end;
writeln;
end;
 
for i:=1 to x do
for j:=1 to x do
if (z[i,j]=min(z)) then
begin
n:=i;
GoTo m1;
end;
 
m1:
sum:=0;
for j:=1 to x do
if z[n,j]>0
then sum:=sum+z[n,j];
write('Srtoka: ',n,' Summa: ',sum);
end.

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

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.01.2013, 04:28

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

Вычислить сумму элементов той строки и столбца матрицы, на пересечении которых находится её минимальный элемент (сам элемент не учитывать)
Вот,не могу даже придумать, как её сделать: Вычислить сумму элементов той строки и столбца...

Найти сумму элементов строки в которой находится минимальный элемент массива
Помогите пожалуйста! Дан двумерный массив. Найти сумму элементов строки в которой находится...

[emu8086] Найти сумму элементов строки, в которой находится минимальный элемент
В данной целочисленной квадратной матрице порядка n найти сумму элементов строки, в которой...

Найти сумму элементов строки в которой находится минимальный элемент массива
Дан двумерный массив.Найти сумму элементов строки в которой находится минимальный элемент массива.

	23.01.2013, 04:28

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.01.2013, 04:28

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

Найти сумму положительных элементов столбца и строки массива, на пересечении которых находится минимальный элемент.
(Turbo C++) Найти сумму положительных элементов столбца и строки массива, на пересечении которых...

Найти сумму элементов строки матрицы, в которой расположен минимальный элемент
Задан массив В(К, М). Найти сумму элементов строки, в которой расположен минимальный элемент.

Найти столбец матрицы, в котором находится минимальный элемент, и вычислить сумму элементов этого столбца
Помогите, пожалуйста, найти ошибки в коде. Задание состоит в том, чтоб найти в каком столбике...

Найти сумму max элементов столбцов, и номер строки, в которой находится элемент матрицы с min значением
Дана вещественная матрица A(n,m). Найти сумму максимальных элементов столбцов и номер строки, в...

Вычисление номера строки матрицы, в которой находится минимальный элемент
задание - дан массив размера 6 x 2 с элементами вещественного типа. Написать программу для...

Определить номер строки матрицы, в которой находится минимальный элемент
Помогите написать код к данному примеру: Дан массив А(NxM) с элементами вещественного типа....

Наверх