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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.06.2008, 16:24   #1
Danilyuk
 
Аватар для Danilyuk
 
Регистрация: 21.01.2008
Сообщений: 8
По умолчанию реализовать обработку массива

У меня есть код но он почемуто не пашет и я н могу понять в чём дело:
Код:
var
a : array[1..20] of longint;
c,d,i,n,k : longint;
begin
writeln('write c');
readln(c);
writeln('write d');
readln(d);
writeln('write dlinu massiva');
readln(n);
for i:=1 to n do
begin
readln(a);   {тут находит ошибку "Error 64:Cannot Read or Write variables of this typr."}
end;
for i:=1 to n do
begin
if a>=c then
if a<=d then
if a>0 then inc(k);
end;
writeln('kol-vo pol. elementov podxodyachie usloviu = ',k);
readln;
end.
Условие:Задав одномерный массив целочисленных данных А в формате Longint, реализовать обработку массива. Длина массива N <= 20. Исходные данные задать самостоятельно, учитывая формат элементов массива A. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определяется из контекста задачи.
Найти:сколько положительных элементов массива A={a[i]} удовлетворяют условию: с <= a[i] <= d.
Кто не рискуе - того не ложат в гроб из красного дерева
Danilyuk вне форума Ответить с цитированием
Старый 18.06.2008, 16:35   #2
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

Код:
var
a : array[1..20] of longint;
c,d,i,n,k : longint;
begin
write('write c: ');
readln(c);
write('write d: ');
readln(d);
write('write dlinu massiva: ');
readln(n);
while((n<=20)and(n>1))do
 begin
  writeln('nepravilnaya razmernost'); 
  write('write dlinu massiva: ');
  readln(n);
 end;
for i:=1 to n do
begin
 readln(a[i]);   {тут находит ошибку "Error 64:Cannot Read or Write variables of this typr."}
 while((a[i]>-10000)and(a[i]<=10000))do {непомню какая область у ЛонгИнта}
  begin
   writeln('chislo ne vhodit v oblast dopystimuh znacheniu, vvedite esche raz'); 
   readln(a[i]);
  end;
end;
for i:=1 to n do
begin
if (a>=c)and(a<=d)and(a>0) then inc(k);
end;
writeln('kol-vo pol. elementov podxodyachie usloviu = ',k);
readln;
end.
Нет невыполнимых задач, всё дело времени...

Последний раз редактировалось D-mon; 18.06.2008 в 17:27.
D-mon вне форума Ответить с цитированием
Старый 18.06.2008, 16:35   #3
PAWLO1993
Пользователь
 
Регистрация: 24.03.2008
Сообщений: 31
По умолчанию

Вот держы:
Код:
var   
a : array[1..20] of longint;   
c,d,i,n,k : longint;   
begin  K:=0; 
writeln('write c');   
readln(c);   
writeln('write d');   
readln(d);   
writeln('write dlinu massiva');   
readln(n);   
for i:=1 to n do   
begin   
readln(a[I]);   {тут находит ошибку "Error 64:Cannot Read or Write variables of this typr."}   
end;   
for i:=1 to n do   
begin   
if a[I]>=c then   
if a[I]<=d then   
if a[I]>0 then k:=K+1;   
end;   
writeln('kol-vo pol. elementov podxodyachie usloviu = ',k);   
readln;   
end.
PAWLO1993 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод элементов массива.Изменение элементов массива. Vesnushka18 Помощь студентам 6 09.06.2011 13:05
Как правильно реализовать тег SeRhy HTML и CSS 0 18.08.2008 18:00
3D фигуры, как реализовать? Nikiforov Помощь студентам 2 22.02.2008 00:24
переписать из массива в линейный двунаправленный список чётные элементы массива Black_Ak24 Помощь студентам 12 08.01.2008 00:44
Как реализовать ASin Romanus Общие вопросы C/C++ 2 16.04.2007 09:46