|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
23.05.2012, 12:39 | #1 |
Пользователь
Регистрация: 17.10.2011
Сообщений: 11
|
исправить ошибки
Program P1;
var a: array [1..256] of integer; i,n,p: integer; Procedure P1; if p=0 then writeln('nema'); begin readln(n); for i:=1 to n do readln(a[i]); p:=0; for i:=1 to n do if i mod 2=0 then if a[i] mod 2=0 then begin writeln(a[i]); p:=p+1 end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
исправить ошибки | Seferus | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 06.10.2011 17:54 |
исправить ошибки | admiral121 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 13.12.2010 12:25 |
Исправить ошибки | dragun4ik | Помощь студентам | 3 | 06.02.2010 19:10 |
исправить ошибки | dragun4ik | Помощь студентам | 6 | 30.01.2010 16:34 |
исправить ошибки | lubafffka | Общие вопросы C/C++ | 2 | 06.12.2009 01:11 |