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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2010, 17:30   #1
Scorch92
Пользователь
 
Регистрация: 08.12.2010
Сообщений: 14
По умолчанию массив размерности n интервалом (-10;10).

массив размерности n интервалом (-10;10).
посчитать сколько в нем ненулевых элементов вывести их индексы.

блин народ как ЭТО вообще делать?? эт канечно просто вроде, но до меня вообще не доходит, вроде и учебник читал(((
Scorch92 вне форума Ответить с цитированием
Старый 27.12.2010, 18:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
массив размерности n интервалом (-10;10).
посчитать сколько в нем ненулевых элементов вывести их индексы.
Код:
{паскаль}
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i]<>0 then writeln(i);
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 27.12.2010, 18:54   #3
k0tone
Пользователь
 
Аватар для k0tone
 
Регистрация: 09.11.2010
Сообщений: 99
По умолчанию

Цитата:
Сообщение от Scorch92 Посмотреть сообщение
посчитать сколько в нем ненулевых элементов вывести их индексы.
Код:
Program esep1;
uses crt;
Var x:array[1..255] of integer;
    i,a,b,c,n:integer;
begin
clrscr;
randomize;
write('Vvedite n=');
readln(n);
clrscr;
a:=-10;
b:=10;
for i:=1 to n do
  begin
    x[i]:=random(b-a+1)+a;
    write(x[i]:4);
  end;
  writeln;
for i:=1 to n do
  if x[i]<>0 then c:=c+1;
writeln;
writeln('kol-vo ne nulevih elementov=',c:4);
writeln;
writeln('Ihnie indexi:');
writeln;
for i:=1 to n do
if x[i]<>0 then write(i:4);
readln;
end.
Если я вам помог - нажмите на весы пот аватаркой!
k0tone вне форума Ответить с цитированием
Старый 27.12.2010, 20:39   #4
Serebro
FORTRAN programmer
Форумчанин
 
Регистрация: 08.12.2009
Сообщений: 153
По умолчанию

Нужно бы добавить строчку:
Код:
c:=0;
Serebro вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
функция, способная сгенерировать массив любой размерности. papapapokerface Общие вопросы C/C++ 2 03.06.2010 14:33
Дан массив размерности, определить номера строк элементы которых образуют последовательность С++ Lera Помощь студентам 2 18.12.2009 17:17
Перевернуть строку заданную интервалом Gongled Паскаль, Turbo Pascal, PascalABC.NET 0 08.05.2009 17:26
Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры AHTOXA Помощь студентам 4 06.06.2007 19:24