Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти строку с наибольшей и наименьшей суммой элементов. https://www.cyberforum.ru/ pascal/ thread140119.html Дана прямоугольная матрица. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.	Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n Pascal Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n.
Pascal Двухмерные массивы https://www.cyberforum.ru/ pascal/ thread140115.html Дана матрица размером n х m. Переставляя ее строки и столбцы, добиться того, чтобы наибольший элемент (или один из них) оказался в верхнем левом углу.	Pascal Обмен жилья. База предложений по обмену: район, площадь, планировка и т.д.; требования к Вариантам обмена. Программа осуществляет регистрацию клиентов Люди добрые помогите пожалуйста решить 2 задачи на курсач. Буду очень признателен. 1. Обмен жилья. База предложений по обмену: район, площадь, планировка и т.д.; требования к Вариантам обмена.... https://www.cyberforum.ru/ pascal/ thread140112.html
Pascal Операции с элементами массивов Дана действительная квадратная матрица порядка N (N — нечетное), все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с...	Pascal Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания https://www.cyberforum.ru/ pascal/ thread140095.html File22. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания (определение локального экстремума дано в задании...
Pascal Мультипликатор Кейнса Помогите пожалуйста сделать программу, очень нужно, заранее благодарю. С помощью мультипликатора Кейнса рассчитать величину инвестиций в данный период. k=1/(1-mc), если mc=1, то k=1/ms I=K/MS,... https://www.cyberforum.ru/ pascal/ thread140088.html	В квадратной матрице определить номер столбца матрицы, имеющего наибольшую сумму элементов Pascal В квадратной матрице i,j=1 to M do определить номер столбца матрицы, имеющего наибольшую сумму элементов. Поменять этот столбец со строкой, имеющей наименьшую сумму элементов. ...
Pascal Зашифровать предложение Зашифровать предложение, записывая каждый его символ в виде четырехзначного числа, первые цифры которого нули, а остальные представляют код символа. Помогите,пожалуйста.... https://www.cyberforum.ru/ pascal/ thread140082.html	Pascal вычисление Задачка очень легкая, была бы на Си, я бы сам сделал, и так: Дано: х=5, dx=1, z. Вычислить z=y+y^1/3+y^1/5 , где y=e^0.2x. Вычислить z до тер пор пока y<25. Найти k-количество вычисленных z.... https://www.cyberforum.ru/ pascal/ thread140066.html
получение списка из файла Pascal Такое задание: нужно получить список самолетов в введенный город после введенного пользователем времени. Структура записи - номер рейса, место назначения, время вылета, время прибытия, кол-во...	Pascal Калькулятор систем счисления https://www.cyberforum.ru/ pascal/ thread140045.html Плиииз помогите сделать задачку Програмка должна переводить числа из двоичной или 8-ричной 10-тичной...16-тиричной систем счисления в эти же 8-ричную...16-ричную и тд....то есть программа у...

Lyohich84

180 / 179 / 163

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

Сообщений: 260

03.06.2010, 10:31

найти строку с максимальной суммой модулей элементов. - Pascal - Ответ 775968

03.06.2010, 10:31. Показов 1690. Ответов 1

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

Ответ

Pascal

uses crt;
const
n=20;
m=4;
var
i,j,k,b,max,imax:integer;
a:array[1..n,1..m] of integer;
s:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(101)-50;
for i:=1 to n do
 begin
 for j:=1 to m do
  write (a[i,j]:4);
 writeln;
 end;
b:=0;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
   begin
    if (a[i,j] mod 2)=0 then k:=1
   end;
  if k=0 then
   begin
    b:=b+1;
    s[i]:=0;
    for j:=1 to m do
     s[i]:=s[i]+abs(a[i,j]);
   end;
 end;
if b>0 then
 begin
  max:=s[1]; imax:=1;
  for i:=2 to n do
   if s[i]>max then
   begin
    max:=s[i];
    imax:=i;
   end;
  writeln('Stroka s maksim summoy moduley elementov=',imax);
 end
 else
  writeln('Net strok sod tolko nech elementi');
readln;
end.

Вернуться к обсуждению:
найти строку с максимальной суммой модулей элементов. Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.06.2010, 10:31

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

В матрице X найти строку с минимальной и столбец с максимальной суммой элементов
Спасайте!Не могу решить(( Дана матрица X размерности nXm.В матрице X найти строку с минимальной и...

Двумерный массив, найти строку с максимальной и столбец с мининимальной суммой элементов
Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем строку с...

Найти строку матрицы с максимальной суммой модулей элементов
Среди столбцов заданой целочисленной матрицы, содержащих только нечетных элементов, найти строку с...

В матрице найти первую по порядку строку с максимальной суммой модулей её элементов
б) В матрице А найти первую по порядку строку с максимальной суммой модулей её элементов. Вектор х...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.06.2010, 10:31

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

В матрице А найти строку с максимальной суммой модулей её элементов и из неё получить вектор
Здравствуйте, Вот полная формулировка: В матрице А найти первую по порядку строку с максимальной...

Среди строк заданной целочисленной матрицы A(N,N) содержащих только нечётные элементы, найти строку с максимальной суммой модулей элементов
Среди строк заданной целочисленной матрицы A(N,N) содержащих только нечётные элементы, найти строку...

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

Дан двумерный массив. Найти строку с минимальной суммой элементов, столбец с максимальной суммой элементов
а)Строку с минимальной суммой элементов б)Столбец с максимальной суммой элементов Дополнительный...

Среди нечетных столбцов матрицы найти столбец с максимальной суммой модулей элементов.
Составить программу на Паскале. Среди нечетных столбцов заданной целочисленной матрицы 5*4 найти...

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

Наверх