Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.05.2009, 20:40   #1
Alex61
 
Регистрация: 16.05.2009
Сообщений: 9
По умолчанию В массиве A, состоящем из 10 элементов, подсчитать количество положительных элементов

В массиве A, состоящем из 10 элементов, подсчитать количество положительных элементов
Alex61 вне форума
Старый 16.05.2009, 20:54   #2
program123
Подтвердите свой е-майл
 
Регистрация: 12.02.2009
Сообщений: 144
По умолчанию

Вот
Код:
program noob;
uses crt;
var
a:array[1..10] of integer;
i:integer;
s:integer;
begin
clrscr;
writeln('input values');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then
s:=s+1;
writeln('koli4estvo:',s);
readln;
end.
program123 вне форума
Старый 16.05.2009, 20:57   #3
HoLToFF
Пользователь
 
Регистрация: 22.03.2009
Сообщений: 58
По умолчанию

Цитата:
Сообщение от program123 Посмотреть сообщение
Вот
Код:
program noob;
жестоко
HoLToFF вне форума
Старый 16.05.2009, 20:58   #4
Alex61
 
Регистрация: 16.05.2009
Сообщений: 9
По умолчанию

Человеческое спасибо!
Alex61 вне форума
Старый 16.05.2009, 20:59   #5
HoLToFF
Пользователь
 
Регистрация: 22.03.2009
Сообщений: 58
По умолчанию

Так пооптимальнее наверно будет:
Код:
program noob;
uses crt;
var
a:array[1..10] of integer;
i:integer;
s:integer;
begin
clrscr;
s:=0;

for i:=1 to 10 do
   begin
      writeln('Vvedite ',i,'-i element massiva: ');
      readln(a[i]);
      if a > 0 then inc(s);
  end;
writeln('Polojitelnih elementov: ',s);
readln;
end.
HoLToFF вне форума
Старый 16.05.2009, 23:06   #6
Jora_Kornev
Пользователь
 
Аватар для Jora_Kornev
 
Регистрация: 06.01.2009
Сообщений: 72
По умолчанию

HoLToFF +1
ася: тристадевяносто 068 ноль восемь шесть
Jora_Kornev вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти максимальный из положительных элементов матрицы и сумму отрицательных элементов. bessonov12 Microsoft Office Excel 7 04.05.2009 05:44
Количество элементов в массиве skit Общие вопросы C/C++ 3 18.03.2009 21:56
Подсчитать количество положительных элементов в маcсиве ELL Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 14.02.2009 22:44
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler Kasim Помощь студентам 2 16.12.2007 16:12