Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
msh666
0 / 0 / 2
Регистрация: 12.11.2012
Сообщений: 61
1

Удалить из массива все элементы кратные 3 или 5 (правка программы)

17.12.2012, 14:38. Просмотров 979. Ответов 1
Метки нет (Все метки)

Задача: Удалить из массива все элементы кратные 3 или 5, ввод из файла, программа работала, но как только дописал ввод из файла, ни чего не происходит, помогите решить проблему. Возможно нужно поменять переменные, но пока не доходит как.
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
Program massiv;
var  a:array[1..100] of integer;
     n,i,j:integer;
     f:text;
begin
 assign(f, 'mass.txt');
 reset(f);
 writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
 for i:=1 to n do
  begin
  read(f, a[i]);
  readln(f)
  end;
 close(f);
 writeln;
 i:=1;
 while i<=n do
 if (a[i] mod 3=0)or(a[i] mod 5=0) then
  begin
   for j:=i to n-1 do
   a[j]:=a[j+1];
   n:=n-1;
  end
 else i:=i+1;
 writeln('ÓäГ*ëåГ*ГЁГҐ ýëåìåГ*òîâ:');
 for i:=1 to n do
 write(a[i],' ');
 readln;
end.
Добавлено через 2 минуты
изначально N это размер массива
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2012, 14:38
Ответы с готовыми решениями:

Удалить все элементы, кратные 3 или 5
Удалить все элементы, кратные 3 или 5(массив)

Удалить из массива все элементы, кратные 7 и принадлежащие промежутку
Дан массив целых чисел (n = 20), заполненный случайным образом числами из...

Удалить из массива все элементы, кратные своему номеру
Дан массив целых чисел (n=12), заполненный случайным образом числами из...

Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3
4.Элементы двух массивов – целые числа в пределах от 4 до 29. Найти третий...

Удалить минимальный элемент массива и все элементы, кратные 5.
Задание. Выполнить действия над одномерным массивом. Удалить минимальный...

1
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
17.12.2012, 14:57 2
Не указан размер массива. Обычно его указывают в файле первым числом, например
8
1 3 7 5 9 8 3 15
тогда читают так.
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
Program massiv;
var  a:array[1..100] of integer;
     n,i,j:integer;
     f:text;
begin
 assign(f, 'mass.txt');
 reset(f);
 read(f,n);
 writeln('Исходный массив:');
 for i:=1 to n do
  begin
  read(f,a[i]);
  write(a[i],' ');
  end;
 close(f);
 writeln;
 i:=1;
 while i<=n do
 if (a[i] mod 3=0)or(a[i] mod 5=0) then
  begin
   for j:=i to n-1 do
   a[j]:=a[j+1];
   n:=n-1;
  end
 else i:=i+1;
 writeln('Удаление элементов:');
 for i:=1 to n do
 write(a[i],' ');
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2012, 14:57

Удалить из матрицы все элементы, не кратные семи, но кратные трем
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все ...

Массивы. Удалить все элементы,кратные 3.
1)Удалите все элементы,кратные 3. 2)Сколько элементов массива превосходит по...

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


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

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

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