Предмет: Информатика,
автор: tutyfruty0731
pascal. дан массив.найти сумму тех элементов ,которые расположены до максимального элемента данной последовательности .результат сохранить в файл.
Ответы
Автор ответа:
0
//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.
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.
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Информатика,
автор: rashidtaharov
Предмет: Алгебра,
автор: Zeetew
Предмет: Алгебра,
автор: auroraspei
Предмет: Математика,
автор: romahusainov45