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

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

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

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

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

Заранее благодарю!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2008, 13:43
Ответы с готовыми решениями:

Вычислить сумму положительных нечетных элементов и заменить все четные элементы массива на эту сумму
2. Вычислить сумму положительных нечетных элементов и заменить все четные элементы массива на эту...

Заменить все элементы массива, кратные 5 на сумму таких элементов
3.Элементы массива – целые числа в пределах от 4 до 23. Заменить все элементы массива кратные 5 на...

Заменить все элементы матрицы, меньшие суммы элементов первой строки, на эту сумму
В двумерном массиве целых чисел заменить все элементы, меньшие суммы элементов первой строки на эту...

Найти сумму элементов k-го столбца матрицы и разделить на нее все элементы k-й строки
Дано матрицу размерности M x N. Числа вводятся с помощью генератора случайных чисел в диапазоне от...

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


помогите решить так, как можете пожалуйста!
0
Почетный модератор
64083 / 47492 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2008, 18:52

Все элементы заданного массива разделить на сумму элементов массива
3. Ввести массив А(N). Все элементы массива разделить на сумму элементов массива. Вывести...

Массив: Разделить элементы исходного массива на число Z и вычислить сумму новых элементов массива
Введите с клавиатуры массив вещественных чисел, размерностью N и некоторое число Z. Разделить...

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

Найти сумму всех нечетных элементов массива и заменить все четные на эту сумму
#include <iostream> using namespace std; void Sum(int a, int n, int& sum) { for (int i = 0; i...

Массив: найти суммы элементов массива, и разделить каждый член массива на эту сумму
int n = 0, A=4, sum=0; Console.WriteLine(); Random r = new...

Дано массив из 15 элементов. Вычислить сумму положительных нечетных элементов и заменить все четные элементы массива на
Дано массив из 15 элементов. Вычислить сумму положительных нечетных элементов и заменить все четные...


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

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

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