Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Закрытая тема
 
Опции темы Опции просмотра
Старый 20.05.2008, 22:35   #11 (permalink)
Мартышонок
Новичок
 
Регистрация: 19.05.2008
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от bubuka
Цитата:
Сообщение от Мартышонок
5. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти произведение элементов стоящих на нечётных позициях
var
mas:array [1..100] of integer;
proizv:longint;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);

proizv:=1
for i:=1 to n do
if i mod 2 <> 0 then proizv:=proizv*a[i];

writeln(proizv);

end.
Не могу понять...он мне пишет что a[i] - неизвестно...Что делать???((
Мартышонок вне форума  

Старый 20.05.2008, 22:35
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Лучше не спешить, а просмотреть все темы которые были ранее

Помогите решить две паскальные задачки пожалуйста
Решить задачки
Помогите решить задачки в Pascal
Помогите решить задачу по Паскалю. Срочно, пожалуйста.
Помогите пожалуйста решить задачки на C++Builder 6. Заранее благодарю
Помогите срочно решить задачу по паскалю.

Старый 21.05.2008, 10:15   #12 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
Что делать???((
вешаться )))
я просто ошибся в именах чуть чуть


var
{ОШИБКА БЫЛА В ЭТОЙ СТРОКЕ ВМЕСТО МАС НАДО А}A:array [1..100] of integer;
proizv:longint;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);

proizv:=1
for i:=1 to n do
if i mod 2 <> 0 then proizv:=proizv*a[i];

writeln(proizv);

end.
bubuka вне форума  
Старый 11.12.2009, 21:52   #13 (permalink)
alex95
Member
 
Аватар для alex95
 
Регистрация: 26.08.2008
Сообщений: 352
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Проблемы с винчестером

После преустановки Windows , как нестранно но у меня сохранились все документы и даже файлы программ в Program file, но програмы установленны не были.Казалось бы че те еще надо ,переустановил программы живи да радуся, но не тут то было. Памяти все мои файлы Вместе с программами и прочим занимали гигов 50 , диск у меня на 150 гигов, а свободного места на диске осталось меньше 50ти гигов. А тапер вопрос уважаемые знатоки : Куда делись 50 гигов??? Norton Patition мне говорит что все у вас молодой человек впорядке раздел на диске 1 , занято 100 гигов ,свободно 50 иди давай отсюда. Функция "управление дисками" в панели управления говорит тоже самое. Программа по востановлению данных положительных результатов не дала .
Помогите кто чем может. Заранее БЛАГОДАРЕН.
alex95 вне форума  
Старый 11.12.2009, 22:35   #14 (permalink)
specnaz
Member
 
Аватар для specnaz
 
Регистрация: 08.12.2009
Сообщений: 105
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1
По умолчанию

Попробуй отформатировать жесткий диск не установочным windows а какой нибудб другой прогай erd commander например может че и получится.
specnaz вне форума  
Старый 11.12.2009, 23:16   #15 (permalink)
Gosha
Member
 
Аватар для Gosha
 
Регистрация: 11.11.2007
Сообщений: 3,367
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 114
По умолчанию

Цитата:
Сообщение от Митька Посмотреть сообщение
Программа по востановлению данных положительных результатов не дала .
Попробуйте использовать программу r-srudio что она вам скажет
Gosha вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 12.12.2009, 13:49   #16 (permalink)
alex95
Member
 
Аватар для alex95
 
Регистрация: 26.08.2008
Сообщений: 352
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Форматировать не хочется поскольку тогда точно потеряются все данные.Такое очущение что та старая копия ОС вместе с файлами сохранилась на диске причем в томже расделе, но увидеть ее неможет ни одна программа.Norton при последней проверки выдал что на диске какие то 2 кластера -это что еще такое?
alex95 вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:40.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.