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

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

07.03.2010, 23:42. Просмотров 1151. Ответов 5
Метки нет (Все метки)

1 задача


Ввести двумерный массив A 3×4 . Найти произведение индексов строк и сумму индексов столбцов для элементов массива больших семи.


2 задача


Ввести двумерный массив A N×M . К элементам массива не кратным трём прибавить остаток от деления этого числа на три. Массив вывести до и после преобразования.


3 задача

Ввести двумерный массив A N×M , вывести его. Все столбцы расположенные правее от столбца, содержащего максимальный элемент матрицы увеличить на минимальный элемент матрицы.


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

Для матрицы получить вектор из индексов максимальных элементов столбцов
Друзья помогите написать программу: Для матрицы А(4 строки ,4 столбца)...

В одномерном массиве найти произведение индексов элементов, кратных 3.
Составить блок-схему алгоритма решения задачи и программу. В массиве B найти...

Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов
Дан массив А (10). Найти произведение индексов положительных элементов и...

Найти сумму индексов положительных элементов
Помогите пожалуйста решить задачи: 1) Дан массив. Удвоить элементы массива....

Задан двумерный массив А(5, 6). Определить произведение отрицательных элементов, имеющих сумму индексов, больше заданного числа Р.
Помогите плз решить задачку по массивам. 1.Задан двумерный массив А(5, 6)....

5
кот Бегемот
Платежеспособный зверь
8460 / 3906 / 1520
Регистрация: 28.10.2009
Сообщений: 10,126
07.03.2010, 23:46 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ввести двумерный массив A 3×4 . Найти произведение индексов строк и сумму индексов столбцов для элементов массива больших семи.
Pascal
1
2
3
4
5
6
7
8
9
10
11
p:=1;
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]>7 then begin
p:=p*i;
s:=s+j;
end;
writeln'p=',p;
writeln('s=',s);
readln;
end.
допишите объявление переменных и ввод массива
1
Arei
0 / 0 / 0
Регистрация: 11.02.2010
Сообщений: 18
07.03.2010, 23:49  [ТС] 3
Конечно спасибо но дело в том что я в Паскале вообще не понимаю!!!

Если сможете помогите в долгу не останусь с задачами
0
кот Бегемот
Платежеспособный зверь
8460 / 3906 / 1520
Регистрация: 28.10.2009
Сообщений: 10,126
07.03.2010, 23:56 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ввести двумерный массив A N×M . К элементам массива не кратным трём прибавить остаток от деления этого числа на три. Массив вывести до и после преобразования.
Pascal
1
2
3
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 3<>0 then a[i,j]:=a[i,j]+a[i,j]mod 3;
Добавлено через 6 минут
задача 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
var
a:array[1..100,1..100]of integer;
p,s,i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
begin
writeln('vvedite element a[',i,',',j,']');
readln(a[i,j]);
end;
writeln('massiv ');
for i:=1 to 3 do
begin
for j:=1 to 4 do
writeln(a[i,j],' ');
writeln;
end;
p:=1;
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]>7 then begin
p:=p*i;
s:=s+j;
end;
writeln'p=',p;
writeln('s=',s);
readln;
end.
1
Arei
0 / 0 / 0
Регистрация: 11.02.2010
Сообщений: 18
08.03.2010, 11:03  [ТС] 5
Помогите сделать 3-ю задачу пожалуйста !!!!
0
кот Бегемот
Платежеспособный зверь
8460 / 3906 / 1520
Регистрация: 28.10.2009
Сообщений: 10,126
08.03.2010, 11:18 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

3 задача

Ввести двумерный массив A N×M , вывести его. Все столбцы расположенные правее от столбца, содержащего максимальный элемент матрицы увеличить на минимальный элемент матрицы.
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
32
33
34
35
36
37
38
39
40
41
42
43
44
var
a:array[1..100,1..100]of integer;
m,n,min,imax,jmax,p,s,i,j:integer;
begin
writeln('vvedite kol-vo strok');
readln(m);
writeln('vvedite kol-vo stolbcov');
readln(n);
for i:=1 to m do
for j:=1 to n do
begin
writeln('vvedite element a[',i,',',j,']');
readln(a[i,j]);
end;
writeln('massiv ');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
min:=a[1,1];
jmax:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]<min then min:=a[i,j];
if a[i,j]>a[imax,jmax] then begin
imax:=i;
jmax:=j;
end;
end;
for j:=jmax+1 to n do
for i:=1 to m do
a[i,j]:=a[i,j]+min;
writeln('novyj massiv ');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.
1
08.03.2010, 11:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.03.2010, 11:18

Найти сумму элементов одномерного массива, принадлежащих заданному диапазону индексов.
Имеется массив А из N произвольных чисел (A(N)), среди которых есть...

Найти наименьшую из сумм элементов строк и сумму наименьших элементов столбцов матрицы
Дана вещественная матрица A размеров 5*4. Найти наименьшую из сумм элементов...

Вычислить сумму индексов максимального элемента матрицы
Ввести с клавиатуры массив, состоящий из n-строк и m-столбцов. Создать...


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

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

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