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

Удалить строку массива, в которой нет ни одного четного элемента

28.04.2018, 20:08. Просмотров 390. Ответов 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
32
33
34
35
36
37
38
39
40
type
mass=array [1..5,1..5] of integer;
var a:mass; i,j,k,n,l,d,b:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 
read (a[i,j]);
end;
 
end;
writeln;
k:=0;
d:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if a[i,j]mod 2 <>0 then k:=k+1;
if k=5 then 
begin n:=i; d:=d+1;
for l:=n to 5-d do 
for b:=1 to 5 do
      a[l,b]:=a[l+1,b];
end;
if n=5 then begin
for l:=1 to 4 do begin
for b:=1 to 5 do 
write (a[l,b],' ');
writeln;
end;
end;
 
end;
k:=0;
end;
for i:=1 to 5 do begin
for j:=1 to 5 do 
write (a[i,j],' ');
writeln;
end;
end.
Добавлено через 13 минут
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
type
mass=array [1..5,1..5] of integer;
var a:mass; i,j,k,n,l,d,b:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 
read (a[i,j]);
end;
 
end;
writeln;
k:=0;
d:=0;
 
for i:=1 to 5 do begin
 
for j:=1 to 5 do begin
if a[i,j]mod 2 <>0 then k:=k+1;
if k=5 then 
begin n:=i; d:=d+1;
for l:=n to 5-d do 
for b:=1 to 5 do
      a[l,b]:=a[l+1,b];
end;
if n=5 then begin
for l:=1 to 4 do begin
for b:=1 to 5 do 
write (a[l,b],' ');
writeln;
end;
 
end;
 
end;
k:=0;
end;
for i:=1 to 5-d do begin
for j:=1 to 5 do 
write (a[i,j],' ');
writeln;
end;
write(d)
end.
исправила немного, но все равно не помогает
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2018, 20:08
Ответы с готовыми решениями:

Из массива A удалить те цепочки нечетных элементов, в которых нет ни одного элемента из массива B
Помогите пожайлуста с решением задачи: Из массива A удалить те цепочки нечетных элементов, в...

Обнулить элементы тех столбцов, в которых нет ни одного четного элемента
Обнулить элементы тех столбцов, в которых нет ни одного четного элемента.

Поменять местами значение первого четного элемента массива со значением последнего нечетного элемента массива.
Дан массив С(30). Поменять местами значение первого четного элемента массива со значением...

Удалить из массива строку, в которой находится максимальный элемент
Удалить из массива строку, в которой находится максимальный элемент. Вывести на экран исходный...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30860 / 20183 / 7874
Регистрация: 22.10.2011
Сообщений: 35,046
Записей в блоге: 6
29.04.2018, 14:41 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
42
type
  v = array[1 .. 5] of integer;
  mx = array[1 .. 5] of v;
  
var 
  a : mx;
  i, j, curr : integer;
  count : integer;
begin
  for i := 1 to 5 do
    for j := 1 to 5 do a[i, j] := Random(10); { Readln(a[i, j]; )}
 
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(a[i, j]:3);
    writeln;
  end;
  
  curr := 1;
  for i := 1 to 5 do
  begin
    count := 0;
    for j := 1 to 5 do
      if a[i, j] mod 2 = 0 then inc(count);
 
    if count <> 0 then
    begin
      if curr <> i then a[curr] := a[i];
      inc(curr);
    end;
  end;
  
  writeln('после:');  
 
  for i := 1 to curr - 1 do
  begin
    for j := 1 to 5 do
      write(a[i, j]:3);
    writeln;
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2018, 14:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Удалить из матрицы все строки, в которых нет ни одного четного элемента
посмотрите почему не выходит using System; using System.Collections.Generic; using...

Удалить все строки матрицы, в которых нет ни одного четного элемента
В массиве размером n*n, элементы которого являются целыми числами, произвести следующее действие: ...

В массиве размером n*n удалить все строки, в которых нет ни одного четного элемента
Всем привет! нужен код программы в С#. Задача: В массиве размером n*n, элементы которого являются...


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

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

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