pascal.дан массив .найти произведение тех элементов ,которые расположены после минимального элемента .результат сохранить в файл
Ответы
Ответ дал:
0
//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.
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.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
9 лет назад
9 лет назад