|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.11.2009, 13:56 | #1 |
Новичок
Джуниор
Регистрация: 04.11.2009
Сообщений: 2
|
Помогите разобраться в задаче на массив
Вводится длина одномерного массива, состоящего из целых чисел, и его элементы. С этим массивом произвести указанные действия и вывести результаты. Если используется "заданное число", то оно тоже вводится.
Требуется удалить элементы, являющиеся простыми числами. Program v6; var a, b: array [1..100] of integer; m, j, k1, i, n: integer; begin writeln ('Вв. длину вектора '); readln(n); writeln ('Вв. элементы вектора '); for i:=1 to n do read (a[i]); readln; j=0; for i:=1 to n d0 begin k1:=0; for m:=1 to a[i] do if a[i] mod m=0 then k1:=k1+1; if k1<>2 then begin j:=j+1; b[j]:=a[i]; end; for i:=1 to j do writeln (b[i]); end. Отредактируйте меня, пожалуйста, до рабочей программы. И скопируйте пожалуйста два прогона программы в ответе, пожалуйста. Очень срочно нужно!!! А Паскаль на Вин 7 косячит очень сильно. Буду премного благодарен!!! |
04.11.2009, 16:35 | #2 |
Новичок
Джуниор
Регистрация: 04.11.2009
Сообщений: 2
|
Помогите, срочно!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите исправить код в задаче | _grusha_ | Помощь студентам | 11 | 11.05.2009 22:05 |
Серии в массиве, помогите разобраться в задаче | RomT24 | Помощь студентам | 7 | 14.01.2009 03:27 |
Помогите исправить ошибку в задаче | VANOLORD | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 19.05.2008 22:16 |