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