|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.05.2010, 20:00 | #1 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
Вычислить количество положительных элементов заданных массивов V1(6) V2(12) V3(13) и вывести их отдельно
Вычислить количество положительных элементов заданных массивов V1(6) V2(12) V3(13) и вывести их отдельно на экран.
|
20.05.2010, 20:53 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
20.05.2010, 21:04 | #3 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
прога не пашет
|
20.05.2010, 21:05 | #4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
А это и не прога.Это фрагмент нахождения положительных элементов.
にんじゃ
|
20.05.2010, 21:18 | #5 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
от посмотри где ошибка
Program rr; uses crt; CONST n=13; type mas=array[1..n] of integer; var A:mas; j,Kol,S,K,i,m:integer; {**Начало процедури} procedure pn(x:mas;var l:integer); var k,i:integer; begin writeln('введите розмерность масива*'); readln(k); for i:=1 to k do begin write('X[',i,']=',' '); readln(X[i]); end; end; begin Kol:=0; for i:=1 to n do if A[i]>0 then begin inc(Kol); end; writeln(kol); {конец процедури} {*начало соновной програми} begin writeln('задайте количество масивов'); readln(m); for j:=1 to m do begin pn(A,Kol); writeln('количество положительних елементов=',Kol); end; end; end. |
20.05.2010, 21:25 | #6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
20.05.2010, 21:36 | #7 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
мне надо вивод 3 масивов с додатними елементами и все только ето надо зделать с процедурами
|
20.05.2010, 21:43 | #8 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Цитата:
にんじゃ
|
|
20.05.2010, 21:46 | #9 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
осуществить передачу массива в процедуру полностю
|
20.05.2010, 21:52 | #10 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
вопросы преподавателю надо задавать сразу.
Цитата:
にんじゃ
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти количество положительных и нулевых элементов массива | Rec0rd | Помощь студентам | 2 | 31.01.2010 20:24 |
В массиве A, состоящем из 10 элементов, подсчитать количество положительных элементов | Alex61 | Помощь студентам | 5 | 16.05.2009 23:06 |
Подсчитать количество положительных элементов в маcсиве | ELL | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 14.02.2009 22:44 |