Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Определить максимальный элемент массива Определить максимальный элемент массива А(10). Если он меньше суммы всех остальных элементов, то присвоить этому элементу нулевое значение, иначе значение, равное найденной сумме. Напечатать вычисленные значения суммы и максимального элемента. https://www.cyberforum.ru/ turbo-pascal/ thread232960.html Turbo Pascal Определить плотность воздуха на высоте х
Плотность воздуха убывает с высотой по закону: p=p0*e^(-hz). Считая, что p0=1,29 кг/м^(3), z=1.25*10^(4) м^(–1), напечатать таблицу зависимости плотности от высоты для значений h от 0 до 2000 м с шагом в 200 м. Определить плотность воздуха на высоте х, заданной пользователем.
Turbo Pascal Суперлото https://www.cyberforum.ru/ turbo-pascal/ thread232919.html
Нужно написать программу в которой из 48 чисел нужно угадать 6 и написать её нужно без использования множеств. У меня есть кое-какие идеи но я не могу понять как сделать что бы я ввёл только 6 чисел и мне выдало определённое сообщение.
Turbo Pascal Длина последнего символа Всем привет. Помогите, пожалуйста, написать программу. Вот условие: дана строка символов, нужно найти длину последнего. Заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread232890.html
Turbo Pascal Графы (доработка программы)
Здравствуйте всем! Прошу помощи! Вот есть программа, но нужно возле каждой вершины вставить ее номер! Кто может помочь? Заранее спасибо!!! Uses Crt,Graph; Const bgi='c:\tp\bgi'; {пусть к подкаталогу BGI} n=8; {Число вершин графа} Con:Array Of Integer= {Матрица смежности графа} ((0,1,1,1,1,1,1,1), ...
Turbo Pascal Опишите множество и поместите в него все простые числа в диапазоне https://www.cyberforum.ru/ turbo-pascal/ thread232853.html
Опишите множество Pr(1..20) и поместите в него все простые числа в диапазоне 1..20. В цикле организуйте ввод чисел в диапазоне 1..20 и определите, простые они или нет. Выход из цикла – введенное значение, равное 99.
Turbo Pascal В двумерном массиве случайных чисел элементы всех четных строк сделать нулевыми. https://www.cyberforum.ru/ turbo-pascal/ thread232819.html
1.Составить программу,которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный массив. 2.Составить программу,которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми.
Turbo Pascal Матрица - деление всех элементов ниже главной диагонали на максимальный эл-нт
Дана действительная квадратная матрица порядка n, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы, лежащих ниже главной диагонали, на ее наибольший по модулю элемент Так звучит задача, построить матрицу и найти максимальный элемент не составила труда, а вот поделить именно те элементы что ниже главной диагонали как то не получается. ...
Turbo Pascal Дано натуральное число n. Вычислить произведение P n сомножителей Дано натуральное число n. Вычислить произведение P n сомножителей P=(1+1/1^2 )(1+1/2^2 )…(1+1/n^2 ), n=15 https://www.cyberforum.ru/ turbo-pascal/ thread232814.html Turbo Pascal Вывести на экран элементы массива, являющиеся простыми числами Дан вектор с n целыми эл-тами, 1<=n<=100. Написать программу, которая выводит на экран эле-нты явл-щиеся простыми числами, использ 2 подпрограммы... Помогите плиз... https://www.cyberforum.ru/ turbo-pascal/ thread232746.html
Turbo Pascal Удалить переносы строк в файле
Нужен код программы который будет считывать с файла стихотворение( 2 четверостишья) вот пример В дверях эдема ангел нежный Главой поникшею сиял, А демон мрачный и мятежный Над адской бездною летал. Дух отрицанья, дух сомненья На духа чистого взирал И жар невольный умиленья
Turbo Pascal Вычисление суммы элементов столбцов двумерного массива 1.составить программу ,вычисляющую суммы элементов столбцов двумерного массива и записывает их в одномерный одномерный массив. 2.составить программу,которая в двумерном массиве случайных чисел элементы всех чётных строк делает нулевыми. https://www.cyberforum.ru/ turbo-pascal/ thread232730.html
332 / 306 / 155
Регистрация: 14.02.2010
Сообщений: 662
23.01.2011, 15:11 0

Вывести номер и среднее арифметическое строки, первый элемент которой равен 1 - Turbo Pascal - Ответ 1310545

23.01.2011, 15:11. Показов 871. Ответов 4
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
k:=0;
for i:=1 to n do
 if arr[i,1]=1 then
  begin
   inc(k);
   sum:=0;
   for j:=1 to n do
    sum:=sum+arr[i,j];
   writeln(i:3,(sum/n):5:2);
  end;
if(k=0) then writeln('Stroki net');


Вернуться к обсуждению:
Вывести номер и среднее арифметическое строки, первый элемент которой равен 1 Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2011, 15:11
Готовые ответы и решения:

Найти среднее арифметическое положительных элементов строки, у которой первый элемент меньше второго в с++
Найти среднее арифметическое положительных элементов строки, у которой первый элемент меньше...

Вывести все элементы массива в виде матрицы и вывести номер строки массива, в которой каждый элемент равен X.
Дан двумерный массив N=9, M=10; Вывести все элементы массива в виде матрицы и вывести номер строки...

Определить номер строки матрицы хотя бы один элемент которой равен С.
Определить номер строки матрицы R(n, n) хотя бы один элемент которой равен С, и элементы этой...

Найти в матрице номер строки, среднее арифметическое которой минимально
Написать программу, которая находит в матрице 5х3 номер строки, среднее арифметическое которого...

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

Сформировать матрицу, каждый элемент которой равен произведению номера строки на номер столбца
помогите пожалуйста срочно надо . Сформировать матрицу, каждый элемент которой равен произведению...

Определить номер строки матрицы, для которой среднее арифметическое её элементов минимально
Здравствуйте ребята.Собственно задача: В двумерном массиве вещественных чисел найти номер строки,...

Создать матрицу B, каждый элемент которой равен произведению соответствующего элемента А на номер его строки
Добрый день уважаемые форумчане! Помогите пожалуйста с решением задачи в Visual Studio 2008, я не...

Для каждой строки матрицы, номер которой кратен 4, найти среднее арифметическое элементов
Дана матрица размера M×N. Для каждой строки матрицы номер которой кратен 4 найти среднее...

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