Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
ChertYaGa
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 7
1

Вычислить сумму элементов массива и разделить все элементы матрицы, кратные 5, на эту сумму

26.12.2008, 13:43. Просмотров 2296. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста!!! Зарываюсь!

Дана квадратная действительная матрица. Вычислить сумму элементов массиваю Разделить все элементы матрицы, кратные 5, на эту сумму. В случае, если сумма равна 0, матрицу составить без изменения. Вывести на экран исходный и полученные массивы. Найти количество элементов последней строки, равных первому элементу матрицы.

Заранее благодарю!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2008, 13:43
Ответы с готовыми решениями:

Все положительные элементы массива разделить на сумму наименьшего и наибольшего элементов.
Я только начинаю работать с массивами и у меня не получается решить задание....

Дан массив случайных чисел оазмерности n. Найти все трехзначные, кратные 7 элементы. Вычислить их сумму и количество
Дан массив случайных чисел оазмерности n. Найти все трехзначные, кратные 7...

Исключить из из массива все отрицательные элементы, вычислить сумму и кол-во оставшихся.
Прошу помочь с решением задачи: Дан массив P(m), m<=13 исключить из него все...

Вычислить сумму всех элементов матрицы, элементы ввести с помощью генератора случайных величин
Доброго времени суток! Помогите пожалуйста. Дана целочисленная матрица A....

Удалить из матрицы все элементы, не кратные семи, но кратные трем
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все ...

3
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,431
26.12.2008, 16:29 2
Если речь идет о действительных числах, то подразумеваются и вещественные, а они как известно кратности не имеют. И пишите понятно, если матрица, то матрица, а если массив, то массив, иногда это разные вещи.
0
ChertYaGa
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 7
26.12.2008, 16:43  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Если речь идет о действительных числах, то подразумеваются и вещественные, а они как известно кратности не имеют. И пишите понятно, если матрица, то матрица, а если массив, то массив, иногда это разные вещи.
Нам вот такую вещь задали... текст один в один.


помогите решить так, как можете пожалуйста!
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,431
26.12.2008, 18:52 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Держи.
Код
Пример матрицы
1 _ 5 _ 10 _15
2 _ 3 _  4 _  5
6 _ 7 _  8 _  9
1_  1 _  1 _ 10

uses crt;
const n=4;//размер матрицы
var a:array[1..n,1..n] of real;
    i,j,k:integer;
    sm:real;
begin
clrscr;
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);  //вводим в ручную, чтобы были кратные 5 и равные в последней строке первому элементу.
readln;
clrscr;
writeln('Ishodnaja matrica:');
sm:=0;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        sm:=sm+a[i,j];//сразу считаем сумму
        write(a[i,j]:5:1);//и выводим
      end;
    writeln;
  end;
writeln('Summa=',sm:0:1);//сумму на экран
if sm=0 then //если ноль
   begin
    writeln('Summa=0');
    writeln('Matrica bez izmenenij:');//выводим матрицу как она есть
    for i:=1 to n do
      begin
        for j:=1 to n do
        write(a[i,j]:5:1);
        writeln;
      end;
   end
else  //иначе
    begin
      for i:=1 to n do
      for j:=1 to n do
      if (frac(a[i,j])=0)and(trunc(a[i,j]) mod 5=0)//если дробная часть числа(frac)=0
      then a[i,j]:=a[i,j]/sm;                      // а целая часть(trunc)кратна 5, то делим
      writeln('Izmenennaja matrica:');
      for i:=1 to n do
         begin
           for j:=1 to n do
           write(a[i,j]:5:1); //выводим измененную матрицу
           writeln;
         end;
     end;
k:=0;
for i:=1 to n do
if a[n,i]=a[1,1] then k:=k+1;//считаем сколько в последнем ряду совпало с первым элементом
writeln('Kolichestvo=',k);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2008, 18:52

Каждый элемент одномерного массива разделить на сумму всех его элементов
Найти сумму элементов одномерного массива размером 4. разделить каждый элемент...

Вычислить сумму элементов матрицы
Вычислить сумму элементов матрицы A=] стоящих в четных столбцах и разделить ее...

Вычислить сумму элементов матрицы
Вычислить сумму элементов строк матрицы a(n,m). Элементы могут принимать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru