Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Подсчитать кол-во подряд идущих одинаковых элементов строки, удалить и оставить по одному Ребят такая трабла нужно решить задачу: Подсчитать кол-во подряд идущих одинаковых элементов строки, удалить и оставить по одному, и вставить перед каждым кол-во удалений т.е. должно быть так... https://www.cyberforum.ru/ turbo-pascal/ thread516394.html	Turbo Pascal Дано шестизначное число. Найти сумму нечетных цифр данного числа, использовать функцию дано шестизначное число найти сумму нечетных цыфр данного числа использовать функцию
Turbo Pascal очередь program pr_3; uses crt; label metka; type data=char; dll=^element; element=record inf:data; next,prew:dll end; var g_elem:dll; https://www.cyberforum.ru/ turbo-pascal/ thread516380.html	Turbo Pascal Даны 3 целых числа. Найти сумму наибольшего и наименьшего даны 3 целых числа. Найти сумму наибольшего и наименьшего. для нахождения использовать функции https://www.cyberforum.ru/ turbo-pascal/ thread516376.html
Turbo Pascal Дано трехзначное число. найти сумму нечетных цифр данного числа дано трехзначное число. найти сумму нечетных цифр данного числа. используя функции для определения четности цифр. по паскалевски распишите	Turbo Pascal Разработать алгоритм и составить программу вычисляющую 20 значений. https://www.cyberforum.ru/ turbo-pascal/ thread516369.html Разработать алгоритм и составить программу вычисляющую 20 значений y=A*B при A = 2, 4, 8, 10 и B = 1,5 ; 2,5 ; 3,5 ; , когда каждому значению A соответствует все 3 значения B. Результаты...
Turbo Pascal Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу https://www.cyberforum.ru/ turbo-pascal/ thread516368.html	Turbo Pascal Вычислить значение выражения там картинка
Turbo Pascal Ввести с экрана матрицу. https://www.cyberforum.ru/ turbo-pascal/ thread516357.html Добрый вечер уважаемые программисты! Прошу у вас помощи. Нужно составить программный код через ПРОЦЕДУРЫ. Задача: 1)Ввести с экрана матрицу. Найти сумму элементов матрицы которые не кратны 3. ...	*Turbo Pascal Вычислить значение выражения (√(15a)+b-4/a)/(cos(1-b))** https://www.cyberforum.ru/ turbo-pascal/ thread516347.html (√(15*a)+b-4/a)/(cos(1-b))
Умножение матриц Turbo Pascal я эту тему не знаю так как лежал в больнице а завтра зачет помогите пжлст!!!!!! Тема: Умножение матриц Цель: Приобретение практических навыков составления и отладки программ умножения...	Turbo Pascal Выбрать способ представления данных. https://www.cyberforum.ru/ turbo-pascal/ thread516333.html Помогите пожалуйста, работаю на складе, жизнь выходит боком. Не успеваю дома по писать :( 1) Условие: Выбрать способ представления данных и составить список используемых переменных. Сформулировать...

Margo2593

12.03.2012, 19:16

Найти сумму всех нечётных элементов матрицы и заменить ею все элементы главной диагонали - Turbo Pascal - Ответ 2786543

12.03.2012, 19:16. Показов 2054. Ответов 2

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

Ответ

Огромное спасибо за программу!!!!

Pascal

uses crt;
var i,j,k,n,m: integer;
    a: array [1..10,1..10] of integer;
    b: array [1..100] of integer;
    s: integer;
begin
 clrscr;
 randomize;
 write('N,M do 10: ');
 readln(n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
     if a[i,j] mod 2 <> 0 then
      s:=s+a[i,j];
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if i=j then
      a[i,j]:=s;
     write(a[i,j]:3);
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
   for j:=1 to m do
    begin
     inc(k);
     b[k]:=a[i,j];
    end;
  writeln('Vektor:');
  for i:=1 to k do
   write(b[i]:3);
 readln;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.03.2012, 19:16

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

Найти сумму всех нечетных элементов выше главной диагонали и заменить ей все нечетные элементы ниже главной диагонали.
Разработать программу в среде матлаб для нахождения суммы всех нечетных элементов выше главной...

Найти сумму всех элементов матрицы и заменить на нули элементы на главной диагонали
В двумерном массиве A из m строк и n столбцов найти сумму всех элементов и заменить на нули...

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

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы
Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.03.2012, 19:16

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

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы
Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы...

Найти сумму всех элементов главной диагонали матрицы, и сумму всех отрицательных элементов побочной диагонали
15. Найти сумму всех элементов главной диагонали матрицы P(10*10) и сумму всех отрицательных...

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

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

Наверх