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

11.03.2012, 20:49. **Показов** 2028. **Ответов** 2

Разработать алгоритм и написать программу на языке TurboPascal.
Задана матрица(двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.
Найти сумму всех её нечётных элементов и заменить ею все элементы главной диагонали матрицы. Преобразовать матрицу в вектор. Вывести на экран полученную матрицу и вектор.

@BumerangSP · 11.03.2012, 22:01

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.

Только есть одно "но": я не в курсе, можно ли проверять на четность вещественное число. Во всяком случае, в паскале проверка идет с целыми числами.

12.03.2012, 19:16

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

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.

Margo2593
		1
	Найти сумму всех нечётных элементов матрицы и заменить ею все элементы главной диагонали 11.03.2012, 20:49. Показов 2028. Ответов 2 Метки нет (Все метки) Разработать алгоритм и написать программу на языке TurboPascal. Задана матрица(двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы. Найти сумму всех её нечётных элементов и заменить ею все элементы главной диагонали матрицы. Преобразовать матрицу в вектор. Вывести на экран полученную матрицу и вектор.

Опции темы

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

Решение