Вопрос по информатике:
Pascal.дан массив .найти произведение тех элементов ,которые расположены после минимального элемента .результат сохранить в файл
- 13.05.2015 10:51
- Информатика
- remove_red_eye 1336
- thumb_up 43
Ответы и объяснения 1
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
f:text;
p,i:integer;
begin
p:=1;
writeln('Array:');
var ar:=ArrRandomInteger(n,-100,100);
ar.Println;
assign(f,'text.txt');
rewrite(f);
for i:=ar.IndexMin+1 to n-1 do
p:=p*ar[i];
write(f,p);
close(f);
end.
- 14.05.2015 02:10
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.