|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2010, 10:20 | #1 |
Регистрация: 28.05.2010
Сообщений: 4
|
Массив. Паскаль.
Здравствуйте! Посмотрите пожалуйста, я правильно прописал программу к задаче: Задан массив Х(N) N<=50. Отпечатать сначала положительные элементы массива Х и их количества, а затем отрицательные массивы Х и их количество.
program zadacha1; const N1=50; type mas1=array [1...N1] of integer; var A: mas1; K,I,N: integer; begin write (' введите размер N= '); read (N); for I:=1 to N do begin write (' A[' ,I, '] ='); read (A[ I ]); end; k:=0; for I:=1 to N do if A [ I ] > 0 then begin write (A [ I ]:4); K:=K+1; end; writeln; write(' кол-во положительных элементов-',К); else if A [ I ] < 0 then begin write (A [ I ]:4); K:=K+1; end; writeln; write(' кол-во положительных элементов-',К); end. |
28.05.2010, 13:07 | #2 |
Новичок
Джуниор
Регистрация: 22.05.2010
Сообщений: 1
|
1.
Код:
2. Код:
3. Даже если К и K выглядят одинаково, это еще ничего не означает и в коде нельзя этого забывать. Переменные - только англ. буквы. 4. Код:
5. Код нужно форматировать и оформлять - так его гораздо легче читать. Например так: Код:
Последний раз редактировалось jabbson; 28.05.2010 в 14:59. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль массив | dante92 | Помощь студентам | 3 | 15.03.2010 11:29 |
Массив.Паскаль. | ulia8412 | Помощь студентам | 2 | 19.12.2009 20:34 |
Массив, Паскаль | RRRRRR | Помощь студентам | 4 | 19.11.2009 19:27 |
Паскаль.Массив | **star** | Помощь студентам | 5 | 09.01.2009 16:04 |