Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Botinok
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 10
1

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

06.02.2012, 22:59. Просмотров 1081. Ответов 7
Метки нет (Все метки)

1. Найти сумму положительных элементов указанного двумерного массива. Транспонировать данную матрицу. Элементы главной диагонали заменить нулями.
2. Найти количество двумерного массива, превосходящих 10.
3. Написать программу, определяющего, сколько слов в заданной строке оканчивается буквой 'я'.
4. Дана вещественная матрица размерности m*n. Расположить все элементы матрцицы по убыванию. Обход матрицы осуществлять по строкам.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 22:59
Ответы с готовыми решениями:

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

Найти сумму положительных кратных 5 элементов двумерного массива
Здравствуйте! Вот задание: Найти сумму положительных кратных 5 элементов...

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

Найдите сумму положительных элементов двумерного массива размера 20 на 25 и умножьте её на сумму отрицательных элементов.
Найдите сумму положительных элементов двумерного массива размера 20 на 25 и...

Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива
задачка №1. найти сумму всех положительных и произведение всех отрицательных...

7
teac2011
2 / 2 / 0
Регистрация: 24.11.2011
Сообщений: 33
06.02.2012, 23:04 2
12345
1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
06.02.2012, 23:35 3
Цитата Сообщение от Botinok Посмотреть сообщение
2. Найти количество элементов двумерного массива, превосходящих 10.
Pascal
1
2
3
 for i:=1 to n do
  for j:=1 to m do
   if arr[i, j] > 10 then inc(count);
Добавлено через 1 минуту
Цитата Сообщение от Botinok Посмотреть сообщение
3. Написать программу, определяющего, сколько слов в заданной строке оканчивается буквой 'я'.
Pascal
1
2
3
 for i:=1 to length(st)-1 do
  if (st[i] in [' ', ',', '.', ':', ';', '!', '?']) and (st[i-1] = 'я') then
   inc(count);
1
Botinok
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 10
06.02.2012, 23:40  [ТС] 4
будьте добры напишите всю задачу полностью
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
06.02.2012, 23:41 5
Botinok, а вы тогда чем будете заниматься? вам же нужно. там делать нечего. пробуйте. с вопросами - пишите
1
Botinok
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 10
06.02.2012, 23:42  [ТС] 6
понимаете, я студент, и мне нужно сдать предмет который я вообще не понимаю.. я был бы очень признателен, если бы вы написали всю задачи, прошу
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
07.02.2012, 00:22 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Botinok Посмотреть сообщение
3. Написать программу, определяющего, сколько слов в заданной строке оканчивается буквой 'я'.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const
 Simvols = [' ', ',', '.', ':', '-', ';', '!', '?'];
var
 st: string;
 i, count: integer;
begin
 readln(st);
  for i:=1 to length(st) do
   if (st[i] in Simvols)and(st[i-1]='я') then inc(count);
  if st[length(st)]='я' then count:=count+1;
 writeln('Слов, заканчивающихся на "я": ', count);
end.
Добавлено через 2 минуты
Цитата Сообщение от Botinok Посмотреть сообщение
2. Найти количество двумерного массива, превосходящих 10.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const 
 n = 5;
var
 arr: array[1..n, 1..n] of integer;
 i, j, count: integer;
begin
 count:=0;
 randomize;
 writeln('Матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(20)+1;
      write(arr[i, j]:4);
       if arr[i, j] > 10 then inc(count);
     end;
    writeln;
   end;
 writeln('Кол-во элементов больших 10: ', count);
end.
Добавлено через 5 минут
Цитата Сообщение от Botinok Посмотреть сообщение
1. Найти сумму положительных элементов указанного двумерного массива...Элементы главной диагонали заменить нулями.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const 
 n = 5;
var
 arr: array[1..n, 1..n] of integer;
 i, j, sum: integer;
begin
 sum:=0;
 randomize;
 writeln('Матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(20)+1;
      write(arr[i, j]:4);
       if arr[i, j] > 0 then inc(sum, arr[i, j]);
     end;
    writeln;
   end;
 writeln('Сумма положительных элементов: ', sum);
 writeln('Обнуленная главная диагональ: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
       if i = j then arr[i, j]:=0;
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end.
1
Botinok
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 10
07.02.2012, 00:42  [ТС] 8
спасибо большое
0
07.02.2012, 00:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 00:42

Найти сумму элементов указанного массива
Дан двумерный массив, содержащий З строки и 4 столбца. Элементами массива...

Найти сумму элементов второй строки указанного массива
1. Дан двумерный массив, содержащий З строки и 5 столбцов. Элементами массива...

Найти количество положительных элементов в каждой строке двумерного целочисленного массива
Будьте любезны помогите,пожалуйста решить две задачи. Заранее огромное спасибо...


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

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

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