![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
![]()
Вычислить количество положительных элементов заданных массивов V1(6) V2(12) V3(13) и вывести их отдельно на экран.
|
![]() |
![]() |
![]() |
#2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]() Код:
にんじゃ
![]() |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
![]()
прога не пашет
|
![]() |
![]() |
![]() |
#4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
А это и не прога.Это фрагмент нахождения положительных элементов.
![]() ![]() ![]()
にんじゃ
![]() |
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]() Код:
にんじゃ
![]() |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
![]()
мне надо вивод 3 масивов с додатними елементами и все только ето надо зделать с процедурами
|
![]() |
![]() |
![]() |
#8 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]() Цитата:
にんじゃ
![]() |
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 26
|
![]()
осуществить передачу массива в процедуру полностю
|
![]() |
![]() |
![]() |
#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 |