Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
vikaaaaa
0 / 0 / 0
Регистрация: 15.10.2013
Сообщений: 19
1

Удвоить первый нечетный элемент каждой строки матрицы (предполагается, что в каждой строке есть нечетный элемент)

12.01.2014, 13:18. Просмотров 495. Ответов 2
Метки нет (Все метки)

выводит какую-то ошибку( не пойму...помогите пожалуйста

Дан двумерный массив.
Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент).
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
type massiv=array [,]of integer;
   var a:massiv;
     n,i:integer;
   procedure vvod(n1:integer; var x:massiv);
var i,j:integer;
begin
randomize;
for i:=0 to n1-1 do
  for j:=0 to n1-1 do
x[i,j]:=-100+random(201);
end;
procedure vivod (n1:integer; x:massiv);
var i,j:integer;
begin
for i:=0 to n1-1 do
  begin
  for j:=0 to n1-1 do 
  write(x[i,j]:5);
  writeln;
  end;
  end;
procedure ydv (n1:integer; x:massiv);
var i,j:integer;
 begin
  j:=1;
  while x[i,j] div 2 = 0 do j:=j+1;
  x[i,j]:=x[i,j]*2;
 end;
 begin
  while x[i,j] <> 0 do i:=i-1;
  x[i,j]:=x[i,j]*2;
 end;
BEGIN
SetLength(a,n,n);
vvod(n,a);
vivod(n,a);
 ydv (n,a);
 vivod (n,a);
END.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2014, 13:18
Ответы с готовыми решениями:

Заменить нечетный элемент каждой строки матрицы нулем
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить нечетный элемент...

Определить сумму всех элементов матрицы и разделить элементы каждой строки на первый элемент строки
Добрый вечер, решите пожалуйста. Определить и напечатать сумму всех элементов матрицы. Разделить...

Если элемент массива четный, то прибавить к нему первый элемент, а если нечетный - последний.
Если значение элемента массива четно, то прибавить к нему первый элемент массива, а если нечетно -...

Массив: В каждом столбике определить первый нечетный элемент
В каждом столбике определить первый нечетный элемент

В каждой строке матрицы поменять местами минимальный элемент и элемент побочной диагонали
Помогите, а то я не бум бум)):wall: Задана матрица Х, где N&lt;=15. В каждой строке матрицы поменять...

2
Puporev
Модератор
57222 / 43671 / 30175
Регистрация: 18.05.2008
Сообщений: 104,117
12.01.2014, 15:07 2
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
type massiv=array [,]of integer;
procedure vvod(var n1:integer; var x:massiv);
var i,j:integer;
begin
randomize;
write('n=');
read(n1);
SetLength(x,n1,n1);
for i:=0 to n1-1 do
for j:=0 to n1-1 do
x[i,j]:=-100+random(201);
end;
procedure vivod (n1:integer; x:massiv);
var i,j:integer;
begin
for i:=0 to n1-1 do
 begin
  for j:=0 to n1-1 do 
  write(x[i,j]:5);
  writeln;
 end;
writeln 
end;
procedure ydv (n1:integer; var x:massiv);
var i,j:integer;
begin
for i:=0 to n1-1 do
 begin
  j:=0;
  while x[i,j] mod 2 = 0 do j:=j+1;
  x[i,j]:=x[i,j]*2;
 end;
end;
var a:massiv;
    n:integer; 
BEGIN
vvod(n,a);
vivod(n,a);
ydv (n,a);
vivod (n,a);
END.
1
vikaaaaa
0 / 0 / 0
Регистрация: 15.10.2013
Сообщений: 19
12.01.2014, 15:29  [ТС] 3
спасибо))
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2014, 15:29

Найти в каждой строке матрицы, если там есть отрицательный элемент, среднее арифметическое всех элементов
Задана матрица Z(5,4). Найти в каждой строке, если там есть отрицательный элемент, среднее...

Определить максимальный элемент в каждой строке матрицы и поменять его местами с последним элементом строки
Вывести на экран матрицу 8x8, элементами которой являются целые случайные числа из интервала ....

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


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

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

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